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FACILITY: 
VAX/VMS EXECUTIVE, 1/0 DRIVERS 
ABSTRACT: SCS CONTROL INCLUDING CONNECTION MANAGEMENT, PROCESSING 
RECEIVED CREDIT at a ie AND SHARING OF THE SINGLE 
SCS SEND BUFFER PER PATH 
AUTHOR: N. KRONENBERG, MAY 1981 
MODIFIED BY: 
v03-018 NPK3054 nenber 24-Jun-1984 


rg 
Change SCSSREQ _SCSSEND” to check if a CDT is already 
waiting for the SCS send buffer before putting it 

n the queue. If it is waiting, don't queue, but 
ust update the block state. 


v03-017 NPK3052 Kronenberg May-1984 
none SCSSCLOSE chi a global Satry Like ie” was supposed 
to be in the first place. 


v03-016 NPK3048 rg fh a telat 
Modify scssvccLoseo/sesssete T_CLSD t 
status to the value in PBSW_VCFAIL REN thost — 
there is a nonzero value there. 


V03-015 NPK3046 mere 8-Mar-1984 
Fix SCSSNOTIFY_ sYSAP to. comp eted an outstanding 
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reject with quccess and return the cdt to the Listening 
state. Previously the cdt was closed. 


v03-014 NPK3045 N. Kronenberg 23-F eb-1984 

Add to SCSS$VCCLOSED the instruction to set 
PBSC_VC_FAIL after checking if a VC failure is already 
in progress. 


vO3-013 NPK3042 N. Kronenberg 6-F eb-1984 
Modify SCS$VCCLOSED to simply return if a ve closure 
is gi ready in progress. Add a new entry to this routine, 
SCSSSETCKT_CLSD to be called when a SETCKT closed is 
successfully completed. 


v03-012 NPK3039 N. Kronenberg 11-Jan-1984 
Repair automatic transition of formative PB to fully 
open: Continue to call CNFSSCSMSG_REC, but don't 
assume that a fully open PB actually resulted. (It 
would fail, if the ENTER_PB previously failed 
or now fails either due to Lack of pool or because 
the system has the same system name or system ID, but 
different incarnation as some system to which we 
already have circuit(s).) 


If no fully open PB resulted, then the vc will have 
been closed by CNFSSCSMSG_REC, and the remote Syesea's 
configuration poller will detect that the circuit is 
gone and clean up the remote's gongs ing CONNECT_REQ. 
he whole problem of a CONNECT_REQ arriving when we 
have * told the pore to open the vc, but when 
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000 we then failed to do the ENTER_PB could have been 
00 avoided by dela ing the vc open command to the port 

00 till after the ENTER_PB. This solution was rejected 
8 because it would mean that a fast enough remote system 
0 rough bef 


might always get its connect request t ore 
the local system could tell its port (after the ENTER_PB) 
to open the vc. Consequently, the open command to 

the port remains as early as possible and is undone 

later if that is necessary. This optimizes the common 
case at the expense of the error case. 


It is possible in the future that sufficiently different 
cpu speeds may lead to the situation where the fast cpu 
can a weys get a connect request sent to a slow system 
before the slow system can tell its port to open the 

ve. If this happens, the current behavior should be 
reevaluated -- a delay before sending connect requests 
may be needed. 


v03-011 NPK3037 N. Kronenberg | 11-Nov-1983 
Add optional SDEBUGCHECK on receipt of connect request 
with no path block in hand or if VC closed or cache 
clear process ng is entered with no path block. 
Fix SCSSNOTIFY_SYSAP and CHECK_NO_CDTS to suppress 
send of cache Clear if the port i§ dead. Also, fix 
CHECK_NO_CDTS to remove the PB and init the port in 
the case where the last CDT to be removed did not 
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result Ay a call to the SYSAP error routine and 
a SYSAP disconnect. 
R 


0w0200 oleh 0. Weber 2-AUG-1983 

Change SCSS$ALL s¢Sk C error path after INISALLOC_MSG to simply 
RSB. The previous version was POPing ti registers from 
the stack thus corrupting those register This change relies 
on EXESALONONPAGED returning $S$_I SFMEM. EXESALONON AGED was 
recently changed to do this. 


NPK3029 N. «Kronenberg 
Enhancements for V 

Change to use Symbols. for SCS status/reason codes. 
Allow receipt of a connect request to complete a 
start handshake in case the last ack in the start 
handshake was missed. 

Fix disconnect of connection because of vc fail 

to return both con_rec and rej_sent connections to 
the Listen atpte. “(Previously rej_sent connections 
were deleted.) 


18-Jul-1983 


KTA3046 Kerbey T. Altmann 29-Mar-1983 
Redo for SCS/PPD split. 
NPK3023 N. Kronenber 11-Mar-1983 


Check destination connection sequence number on 
credit requests and responses. 


ROW0147 Ralph 0. Weber 15=DEC-1982 
pervect offset on matching oddress in SCSSMAP_VMSSTS table 
ookup. 


NPK3008 N. Kronenberg 6-0c t-1982 
Change SCS status codes to conform to architecture. 
ROW0096 Ralph 0. Weber 7-JUN-1982 


Add calls to error logging routines in REC_CON REQ and 
REAK_VC. Also added necessary reference fo SPAERDEF gecre. 
This Thange will be in a new driver image shipped in V3.1. 


NPK2019 Kronenberg 6-Apr-1982 
Change BAD _DATABASE to crash port instead of bugcheck. 
NPK2018 N. Kronenbe 25-Mar-1982 


Added routine SCS$ALLOC UGB to to gitecate short dgs. 
Removed test code from SCSSDEAL 

PK2016 N. Kronenberg 18-Mar-1982 
Fixed - TITLE 
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.SBTTL DEFINITIONS 


Set PSECT to driver code: 


0000 -PSECT $$$115_DRIVER,LONG 


oo 


: System definitions (LIB.MLB): 


Connection Descriptor List format 
Connection Descriptor Table format 
Class Driver Request Pkt format 
Path Block format 

; Port Descriptor Table 

SCS message format 

; System service messages 


PRAPAMAAMMAM: 


: PADRIVER definitions (PALIB.MLB): 


SPAPDTDEF ; PA specific PDT extension. 
SPAERDEF :; Port driver error code values 
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-SBTTL DATA 


430 
; Tables to convert SCS status codes to corresponding VMS status codes. 


: SCS status codes: 


SCS_STATUS_TAB: 
«WORD SCSSC_STNOMAT 3; No matching Listener 
«WORD SCSSC_STNORS 3; No resources in Listener 
«WORD SCSSC_STNORMAL 3 General success status 
«WORD rhs Bets ; CDOT disconnected 
«WORD CSSC_STINSFCR : Insufficient credits on connect 
WORD ; Patch space 
WORD ; 
WORD ; 
«WORD 0 : 

SCS_STATUS_LEN = .-SCS_STATUS_TAB ; # bytes in SCS status table 


: VMS status codes corresponding to SCS codes. This table must 
; follow above table. 
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VMS_STATUS_TAB: 
15C -WORD SSS_NOLISTENER : No matching Listener 
06C 001 «WORD SSS_REMRSRC ; No resources in Listener 
001 001 «WORD SS$_NORMAL ; Success 
204C 001 «WORD SS$_DISCONNECT ; CDT disconnected 
0001 001 -WORD SS$_NORMAL ; Default VMS status for patch space 
0001 001 «WORD SS$_NORMAL s 
0001 001 -WORD SS$"NORMAL : 
0001 8 WORD SS$_NORMAL $ 
00 : 
3 ; Length of the SCS overhead. 
° SCS$GL_SCSSIZE:: 
0000000E 09 -LONG SCS$C_OVHD 
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rf: ~-SBTTL SCS LAYER INITIALIZATION 


& i* 

4 : This routine is called by the INIT module after the PDT has been set 
: st and befor any port specific hardware initialization. It gives the 

& : SCS Layer a chance to do any initialization it needs. 

: sc 

5 


CSSINITIAL:: 
BRW FPCSINITIAL 3; Do it in FPC for now 
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PROCESS REC'D SCS CONTROL MESSAGES SEP=1984 DRIVER. SRCJPA 
: ~SBTTL PROCESS REC’D SCS CONTROL MESSAGES 


This routine is called by module PAINTR when a message is received which is 
message type other than SCSSC_APPL_MSG. This routine dispatches 

on the various message types that are possible to routines that 

process the received messages. 


34 
3 it 
at 
62 : 
9 8 
rt: : Inputs: 
9 96 3 R2 “Addr of received message 
9 67 ; R4 “Addr of PDT 
§ 589 | output 
3; Outputs: 
029 Hs 3 
029 71 3 Ry -Preserved 
029 i 3 other registers “Destroyed 
029 73 ;:- 
0029 74 
SE <5 1 senues tron seven 
3; Message format assumptions: 
$059 599 ° 
0029 78 
0029 79 ASSUME SCSSC_CON_REQ €0 0 
0029 9 ASSUME SCSSC_CON RSP €Q 1 
0029 1 ASSUME SCSS$C"ACCP_REQ €0 § 
0029 Be ASSUME SCSSC"ACCP-RSP EQ 
0029 83 ASSUME SCSS$C"REJ_REQ £0 4 
0029 84 ASSUME SCSSC_REJ_RSP €Q 5 
0029 85 ASSUME SCSS$C_DISC_REQ EQ 6 
0029 a6 ASSUME SCSSC_DISC_RSP EQ 7 
0029 87 ASSUME SCS$C_CR_REQ EQ 8 
0029 88 ASSUME SCSS$C_CR_RSP £Q 9 
0029 89 
0029 90 
8 9 91 -ENABL LSB 
029 38 
8 X* SCSSREC_SCSMSG: : 
F4 ry} 3 029 95 TSTW SCSSW_MTYPE(R2) : Connect request? - 
0 1 02C 96 BEQL 10$ : If so, skip COT addr calculation 
FFCF*® 30 00 — 97 BSBW FPCSCHK_DCONID ; Check destination CONID 
98 3; and get CDI addr 
01 50 3 031 99 BLBS RO,10$ :; Branch if good CONID. 
4 of RSB ; Else leave 
10$: CASE SCSS$W_MTYPE(R2) ,<- : Dispatch to routine based on msg type: 
REC_CON_REQ,- 3 CONNECT_REQ . 
4 REC_CON_RSP,=- ; CONNECT_RSP 
5 REC-ACCP_REOQ,- : ACCEPT_REQ 
REC_ACCP_RSP,=- ; ACCEPT_RSP 
REC-REJ_REQ,- ; REJECTIREQ 
3 REC_REJ_RSP,= ; REJECT_RSP 
REC“DISC_REG,- > DISCONRECT_REQ 
0 REC_DISC_RSP,=- ; DISCONNECT_RSP 
11 REC-CR_REQ,- ; CREDIT_REQ 
1 REC~C""RSP> : _CREDIT“RSP 
O4DE 31 4E 1 Bk BREAK _VC ; Other types are illegal 


rca 
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! 4 -SBTTL = REC_CR_REQ, PROCESS REC'D CREDIT REQUEST 
1 3* 
1 3; This routine processes a credit request (received separately from 
! § ; an appliction message). The algorithm is: 
é ; For positive credit field: 
00 $ ; CDT$W_SEND(R3) = CDTSW_SEND(R3) + credit 
ue 3 
th 8 ; For negative credit field (credits being retracted): 
' 3 
8 93 Maximum returnable credit = Maximum of 0 or 
—4 1 3 (CDTSW_SEND = CDTSW_MIN_SEND) 
ee 3 
—4 Number to return = Minimum of (Max returnable) or (-credit field) 
' 3 
—4 5 ; Inputs: 
ie 3 
0051 2 3 Re “Addr of credit message 
0051 $ ; R “Addr of CDT 
—4 ip : RG “Addr of PDT 
th re : Outputs: 
0981 8 RO,R1 -Destroyed 
51 44 ; other registers -Preserved 
He 
0081 ‘3 -ENABL LSB 
051 49 REC_CR_REQ: 
FAA B1 0051 51 CAPW SCSS$L_DST cee eg eae? o :; Is the connection seq # in the 
1A A 054 2¢ COTSL_LCONID+2(R3) 3 _msg = seq # in cdt? 
54 1 8 5 BNEQ FATAL_CR_ERR : Branch if not 
51 Ff6A2 8B 5 54 MOVW SCS$W-CREDIT(R2).R1 3; Get # credits extended 
—s % 05C 55 BGEQ UPDATE_SEND 3 Branch if positive 
4A A A 5E 28 SUBW3 CDTS$W_AMINSEND(R3),- ; Compute # we can return 
50 40 A3 61 5 COTSW_SEND(R3) ,RO ¢ 
8 18 64 38 BGEQ 10$ ; Branch if not negative 
B4 2 CLRW RO 3; Else # we can return = 0 
3} 3] A 6 61 10$: MNEGW R1,R1 : Compute -(credit field) 
0 1 86 68 $6 CMPW R1,R0 : Is it less than, or equal to 
6E 6 3 maximum returnable? 
3 18 64 BLEQU§ 20% ; Branch if so 
3} 0 80 65 MOVW RO,R1 ; Else choose max returnable f 
1 1 A ? 66 208: MNEGW = R1,R1 3 Calc -Min(max returnable,-credit) 
F6A2 51 2B 2 6 MOVW R1,SCS$W_CREDIT(R2) : Tell remote about partial 
3h, 3 UPDATE SEMD: 
40 43 51 8 7A 7 ADDW R1,CDT$W_SEND(R3) ; Update our send credit 
0366 3 4 ie BSBW SEND_CR_RSP ; Turn messge around for RSP 
40 43 BS 3 74 308: TSTW COTSW_SEND(R3) : Any send credits now? 


12 
PASCSCTL NGoSEP=1984 01:18:38 YAX/vMS Macro. y04=00 Page 10 
—R = REC_CRREG, PROCESS REC'D CREDIT REQUE 'S-SEp-19B6 HOLTE;S% LDAIVER. cae TPAdcS Cy: mars? 2° 18, 


| 
| 
| 


156 13 4 75 EQL 40$ : Branch if not 
7 RESUME _FP ” 3; Else resume 
7 “OCoTst _CRWAITQFL(R3),- ; next waiter 
7 Y=40$ 3 pranch ine if none 
—E6 11 2 4 BRB i :- 3; Check if more credit 
05 * 408: RSE ; Return 
9C -DSABL LSB 


PASCSCTL =SEP-1984 01:13:38 VAX/VMS Macro v04-00 Page 11 
— RSP, PROCESS REC'D CREDIT RESPO SasEPaTon4 e LOAIVER-caeaeAScscoeman:1 2° hy. 
5 .SBTTL - REC_CR_RSP, PROCESS REC'D CREDIT RESPONSE 


~O 
+ 


This rout ine is called upen receipt of a response to a previously 
sent CREDIT_REQ. “ct CR_RSP updates the record of the number 

of sent credits held By the remote SCS (CDT$W_REC) and then 
resumes the SCS posse? send process in case any connection 

is waiting for the SCS send buffer. 


3 Inputs: 
9% : ts “Addr of credit response message 
97 ; R “Addr of CDT 
3 “Addr of PDT 
4 0; : Outputs: 
4 : : RO-R2 “Destroyed 
405 ; other registers -Preserved 
tos * 
£88 -ENABL LSB 
6 
408 REC_CR_RSP 
FA A 410 CMPW SCSS$L_DST_CON mipeg ine). - ; Is connection seq # in msg 
AA 411 CDTSL-LCONID+ 3; = seq # in aie 
09 tig BNEQ FATAL_CR_ERR 3; Branch if no 
FO A 41 MOVW SCS$W_CREDIT(R2),RO 3; Get credit eaten 
0 414 BLSS FATAL_CR_ERR ; Branch if negative 
415 3 Moget ive credit--> remote SCS 
et 3 thinks we asked for credit 
41 3; back and we never do that. 
O2EA $18 BRW SCSSRESUM_SEND 3; Resume SCS send waiter, if any 
4 9 FATAL_CR_ERR: 
0480 ? § BRw BREAK_VC : Break virtual circuit 
424 -DSABL LSB 


PASCSCTL 
vo⸗ 


16 
~ REC_CON_REQ, PROCESS REC'D CONNECT REQ ——— 


SEP-1984 01:13: AX/VMS Macro V04-00 
7 — YORIVER. SREIPASCSCTL «MAR: 1 


3 — -SBTTL = REC_CON_REQ, PROCESS REC'D CONNECT REQUEST 
AF & 3+ 
Ae 6s s Receipt of a connegt request causes the transition of the path block 
450 ; associated with this port-port vc from the formative to the open state 
431 ; if necessary. (It is necessary only if the final datagram in the start 
? 3; handshake was lost.) 
434 ; Next, REC_CON_REQ Looks up the target fork process in the directory of 
435 ; Listeners; if the target is not Listening, match failure status is 
4 § ; returned to the remote. If the target is listening, the Listening CDOT 
437; receives escorted information about the connect requestor, and the 
2 3 ; Listening SYSAP is called at its Listen message address. 
440 : If the Farget process is busy handling a previous connect request 
441 ; (it is in the con_rec or rej_sent state), then ‘no resources’ status 
—8 is returned to the connect requestor. The assumption is that, in this 
ret 3 case, the requestor will reissue the connect request later. 
ret : Inputs: 
8 R2 -Addr of msg buffer containing CONNECT_REQ 
$68 : RG “Addr of PD 
$39 $ Outputs: 
43¢ : RO-R2 -Destroyed 
$37 3 other registers -Preserved 
9 
.kNABL LSB 
$23 REC_CON_REQ: 
FF4E* 30 461 BSBW CNFSSCSMSG_REC : Complete formative PB transition 
46 ; if necessary. (This routine may 
46 : find a formative PB, but may fail 
464 ; for a number or reasons. See 
465 : revision history on this module 
46 3; NPK3039) 
FF4B" 3 46 BSBW CNFSLKP_PB_MSG2 ; Look up PB given PDT and remote port 
0450 € 46 BLBS RO, VC_OPEN ; Branch if found open PB. 
$8 : Else, ve is closed and connect 
4 9 3 request arrived dur ng window when 
47 ; we had vc open in anticipation of 
$76 3 a successful handshake. 
FF45* 30 47 BSBW INTSINS_MFREEQ ; Discard CONNECT_REQ to free queue 
474 3; = sender will discover closed vc 
475 ; _via polling. 
05 $78 RSB ; Return 
$78 VC_OPEN 
51 A2 480 MOVAL SCSS$T_DST_PROC(R2),R1 : Get addr of target process name 
00000000'GF 1 481 JSB G*SCSSLOCCOOKUP ; Look it up in the directory 
66 50 € 482 BLBC RO,NO_MATCH ; Branch if failed 


L 


PASCSCTL 16-SEP-1984 01:13: AX/VMS Macro v04-00 Pa 13 
—R = REC_CON_REQ, PROCESS REC'D CONNECT REQ 53 at} 83; 3:38 DRIVER. SRCIJPASCSCTL.MAR;1 * ta) 
C 483 SDISPATCH - 
: 2 ¢ COTSU_STATE (RS) ,@ ; Dispatch on state: 
Co 486 <CDTSC_CON_REC, NO_RESOURCE>,- : CONNECT in progress 
(9 4 <COT$C-“REJ-SENT,NO-RESOURCE>.= : CONNECT in progress 
: ? 3 <CDTSC_L STEN, COR_LISTEN>,- ; Just Listening 
E46 & 
0448 31 eS i BRw BREAK _VC : Illegal state 
E7 495 CON_LISTEN: 
E7 694 - 
5 0 E7 495 PUSHL R2 ; Save addr of CONNECT_REQ 
03 €9 £38 BSBW SCSSALL_SCSREC ; Allocate SCS buffer fo Listening CDT 
8ED EC 49 POPL R ; Retreive addr of CONNECT_REQ 
4 EF 49 BLBC RO,NO_RESOURCE ; Branch if no poo 
14 0 F2 49 BsBW «© SCS$COPY_ACCP : Copy info about remote to CDT 
20 : 9 BSBW SCSSSAVE_REQ 3 Copy gonnect request to Listener 
: er. 
me * 92 F 03 BSBW CNFSLKP_PB_MSG2 3 Look up path block given PDT and 
3¢ 50 09 FB 0 BLBC RO, BAD_BATABASE : Branch if couldn't find PB -- 
FE Be ; shouldn't get seg msg unless 
FE 5 3; there is a PB (VC open) 
1¢ Ad. «6 51—Sés«é F 8 MOVL R1,CDOTSL_PB(R3) ; Save PB addr in Listen CDT 
OC Al 00 010 0 MOVL §§ PB$B_RSTATION(R1),- : Also save remote station addr, 
20 a3 10 08 CDT$SB_RSTATION(R3) 
10 Al B80 010 09 MOVW $8 _RSTATION+4(R1),= 
24 A3 10A 10 CDT$B_RSTATION¢4(R3) 
10 43 «6554 00 0100 11 MOVL R4,CDOTSL_PDT(R3) ; and PDT addr in Listen CDT 
09 ©B0 119 1 MOV)  #COT$C_CON REC - t Move connection state from 
38 A3 11 1 COT$W_STATE(RSS : listen to connect received 
4 Al do 114 14 MOVL rot COTLST(R1),= : Insert Listening CDT on PB List 
6c As 117 515 cor C COTLST(R3) : of CDT's in case of VC or 
34 Al 5 4 119 8 MOVL R SL_CDTLST(R1) 3; power failure 
50 (01 11D 51 MOVW  #5CS$C_STNORMAL,RO : Set status to match successful 
02% 0 01 18 BSBW SCSSSERD_RSP 3; Generate response 
33 ef A DO (01 1 MOVL COTSL_SCSMSG(R3) ,R2 3; Get addr of copy of msg 
5 4 Ag 9E 01 0 MOVAB SCSS$T “DST PROC(R2),R2~ : Compute addr of part SYSAP wants 
00 8B 1 128 1 JSB @CDTSC_MSGINPUT (R35 ; Call Listener input addr 
0 12E § RSB ; Return to PAINIT to dequeue 
\ ; Z ; more responses 
ZF 5 NO_MATCH 
50 OA 60 O12F § MOVW S5CSSC_STHOMAT AO ; Set status to no matching process 
03 11 ; ¢ 8 bass! 10$ 3; Join common code 
: 2 9 NO_RESOURCE: 
50 12 60 : ; § novu #SCSSC_STNORS,RO ; Set status te no resources 
O27F 31 : : 10$: BRW SCSSSEND_RSP 3; Send response 
13A 336 BAD_DATABASE: 
135A § SDEBUGCHECK #ERRSV_DEB_NOPB ; Optionally, bugcheck on this error 
50 8004 8F 32 0140 CVTWL  #<PAERSK_ES_CNPB ! *x8000>, RO ; Log received connect request 


<v 


m 2 
—e = REC_CONREO, PROCESS REC*D CONNECT REO 'SeSEp-19B6 eoeßz. egl eee 18) 


| 
| 
F . 1 SBW LOGSPACKET om 90 /o PB e pret. 
FEAR’ 3 i i SBW int INS_MFREEQ : Put 338. peg butter back | 
FEAS* 39 1 BSBW  ERRSCRASH_PORT Init port. eras 
! ? ¢ RSB ; Return to > dit service 
15¢ 6 -DSABL LSB 


PASCSCTL 16-SEP-1984 01:13: AX/VMS Macro Vv04-00 Page 
v04 = REC_CON_RSP, PROCESS REC'D CONNECT RES - oats ri — LORIVER. SREIPASCSCTL «MAR: 1 . 
} : ‘8 -SBTTL = REC_CON_RSP, PROCESS REC'D CONNECT RESPONSE 
15¢ = 
15¢ 1 ; This routine is called upon receipt of a CONNECT_RSP. Action {s as 
; : § : follows: 
1 : : ; CONNECT_RSP STATUS CDT STATE ACTION 
15¢ 2$ s Match CON_SENT Move state to CON_ACK. 
: : 5 : Resume SCS send wait queue. 
15¢ 35 3 No match, CON_SENT Deallocate CDT and all its 
15¢ 60 ; No resources buffers. Resume SYSAP with 
15¢ 61; error status. Resume SCS 
15¢ 6¢ 3 send wait queue. 
15¢ 65 ; 
; : 8 lnputs: 
15¢ 208 ; Re “Addr of CONNECT_RSP message 
15C¢ 67 ; © “Addr of CDT 
15¢ 68 ; RG “Addr of PDT 
15¢ 8 3 
015¢ 0 ; Outputs: 
015C 1 3 
Bie 72 3 RO-R2 -Destroyed 
3¢ 606s S73 8 other registers ~Preserved (if connect acknowleged) 
015C¢ 74; R3 “Destroyed if connect not acknowleged 
015C 75 
Bee 6 i- 
15C 2 
015C¢ 78 -ENABL LSB 
015C 579 
Bize 381 REC_CON_RSP: 
HE ¢ SCHK_CDTSTATE - 3; Verify CDT state is 
015C 58 CON - 3 connect sent; if not, 
o15¢ 284 ERROR=BREAK_VC : fatal state error 
02 A2. B1 016 5 CMPW SCS$W_STATUS(R2) ,- : Was connect acknowleged? 
01 168 36 #SCS$C_STNORMAL : 
8 12 0169 7 BNEQ CONNECT_FAIL 3 Branch if not 
: BO 0168 88 MOVW #$#CDT$C_CON_ACK,- 3 Move CDT state to connect ack'ed 
28 A 0160 89 COT$w_STATE(R3S : 
0224 31 16F 39 BRW SCSSRESUM_SEND ; Resume SCS send queue 
7 $3 CONNECT_FAIL: 
37D 0 017 94 BSBW SCSSDEAL_ALLBUF : Deallocate all CDT's buffers 
a 0 017 9 BSBW SCSSMAP_SCSSTS ; Map SCS status to VMS 
bp 17 9 PUSHL RO 3 _and save on stack 
21 3 17A 9 BSBW SCSSRESUM_SEND 3; Resume SCS send queue 
AS DO 017D 598 MOVL COTSL_FROTR3) .R5 ; Restore SYSAP's context: R5 
64 A DD 0181 99 PUSHL CDTSL_FPC(RS) 3; and PC from CDT 
00000000'GF 1 184 600 JSB § SCSSDEALL COT ; Deallocate CDT too 
04 AE OD 18A 601 MOVL 4(SP),R ; Retreive VMS status 
34 b 1 5 6 é MOVL R4,4(§P) : Save PDT addr over status 
E 6 1 6 JSB a($P)+ ; Call SYSAP with error status 
54 8ED 194 604 POPL R4 3; Retreive PDT address 


8B 3 
PASCSCTL 16-SEP-1984 01: AX/VMS v04-00 Pa 1 
— ~ REC_CON_RSP, PROCESS REC'D CONNECT RES ate 80:18 :3§ DRIVER. SRE SPAS SCSCTL.MAR; 1 * (9) 
0S 0197 605 RSB ; Return 
19 6 § 
19 6 -DSABL LSB 


| 
— — — —— 


PASCSCTL 16-SEP-1984 01:13: AX/VMS Macro V04-00 Page 17 
— ~ REC_ACCP_REQ, PROCESS REC'D ACCEPT REQ at 0:18:88 DRIVER. SRCJPASCSCTL.MAR; 1 — (10) 
-SBTTL = REC_ACCP_REG, PROCESS REC'D ACCEPT REQUEST 


* 
this routine is called upon receipt or an ACCEPT_REQ message. Action 
is as follows: 


CDT State Action 


CON_ACK Copy eccept message and parameters 
to CDT; Set CDT state open. 
Send ACCEPT_RSP. Resume SYSAP | 
with success status. 


198 $6 
19 gr 
19 3 
19 61 
19 614 
19 615 
19 $16 
19 61 
313 $18 
19 61 
Bish B38 
019 6 § Sequence # check Send back a response that tells 
813 ? Z fails remote SCS this CDT went away. | 
93 5 ; Inputs: 
$198 6 5 Re “Addr of CONNECT_RSP message | 
0198 628 R “Addr of CDT 
3138 ? 4 R4 “Addr of PDT 
93 — 1 Outputs: 
0198 638 RO-R2 -Destroyed 
019 634 other registers -Preserved 
b198 63K 
33 3 -ENABL LSB 
0198 639 REC_ACCP_REQ: 
030A 30 0198 641 BSBW SCSS$SCHK_SEQNUM 3 Check that this is our CDT 
2750 €9 0198 64 BLBC RO,CDT_CLOSED ; Branch if not-- we must have 
O19E 64 3 done a unilateral disconnect 
019E 644 SCHK_CDTSTATE - ; Verify that the CDT state is 
019E 645 CON_ACK,=- : CONNECT ack'ed; if not, 
8195 646 ERROR=BREAK_VC 3; fatal state error 
026 30 OIA 647 BSBW SCSS$SAVE_REG : Save copy of ACCEPT_REQ message 
025C¢ 30 3 —8 BSBW SCSSCOPY_ACCP 3 Copy, tate i ACCEPT_REQ msg 
3; to loca 
0¢ BO QO1AD 650 MOV #CDT$C_OPEN,- ; Set CDT state open 
28 A 1AF 651 CDT$W_STATE(R3) : 
50 1 9 181 33 MOVW #scost STNORMAL ,RO 3 Set to send success response 
0202 ; 1B4 65 BSBW SCSSSERND_RSP 3; Send ACCEPT response to remote 
50 01 C 0187 654 MOVZWL #SS$ NORMAL ,RO ; Set to return success 
38 zt 43 DO OIBA 655 MOVL COTSC_SCSMSG(R3) R2 ; Get addr of success message 
5 4 Ag E 18 656 MOVAL SCS$T DST PROC(R2) ,R2 ; Step R2 past SCS header 
O3A 1 C6 3 BR t Font concali 3; Resume SYSAP 
12 639 CDT_CLOSED: 
50 19 99 1¢5 = 661 MOVW #SCS$C_STDISC,RO ; Set response status to error 
O1EE 1 8 83 BRw SCSSSEND_RSP 3 and send the response 
1CB 664 -DSABL LSB 
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v04 = REC_ACCP_RSP, PROCESS REC'D ACCEPT RES ety 7 — LORIVER. SREIPASCSCTL MARS 1 . (11) 
. 8 -SBTTL — REC_ACCP_RSP, PROCESS REC'D ACCEPT RESPONSE 
1¢B 68 ;+ 
1¢B ees ; This routine is called upon receipt of an ACCEPT_RSP message. Action 
1CB 670; is as follows: 
1668 «671 ; 
4 of 3 COT State Action 
1CB 674 ACCP_SENT If the ACCEPT_RSP has success status, 
103 675 ; set CDT state open. Resume SCS 
1¢B 078 3 send wait queue. Resume SYSAP. 
1¢B of 3 If the ACC PT RSP has fail status, 
1¢B 4 $ then clean up the CDT and return 
108 679; the RSP error status to the SYSAP. 
1CB 680 ; 
1CB 681 ; Inputs: 
1cB 6 ¢ 3 
1CB 683; Re “Addr of ACCEPT_RSP message 
1CB 4684 ; R “Addr of CDT 
Acſs 685 ; -Addr of PDT 
01¢B 3 
960 687 ; Outputs: 
1CB 688; 
01CB 689 ; RO-R2 -Destroyed 
01CB 690 ; other registers -Preserved 
01CB 691 ;- 
01c8 69 
01cB 69 -ENABL LSB 
01CB 694 
01CB 695 REC_ACCP_RSP: 
0O1CB 696 
01CB 697 SCHK_CDTSTATE - : Verify that CDT state is 
01CB 698 ACCP_SENT,- 3 accept sent; if not, 
O1CB 38699 ERROR=BREAK_VC : fatal state error 
0¢ 80 He 700 MOV #COTSC_OPEN,- 3 Move state to open 
28 A 1D6 701 COT$W_STATE(R3) : 
50 2c 8 D0 0108 70 MOVL Corsi. SCOMSGCRS), RO ; Get CONNECT —8 ne buffer 
5 DD O1DC 70 PUSHL R ; Save addr of accepting COT 
53 FB AO 60 O1D 704 MOVL SCSSL_DST_CONID(RO),.R3 ; Get addr of Listening coT 
1E 705 3; _saved by ACCEPT cal 
C35A 30 OIE 706 BSBW SCSSF REE LESTER ; Put Listener back in Listen state 
53 8EDO OIE 707 POPL Re ; Retreive addr of accepting CDT 
0385 O O1€8 oe BSBW SCSSMAP_SCSSTS ; Map SCS status to VMS 
50 3 1EB 709 PUSHL 3; Save translated status 
0188 1ED 710 BSBW SCSSRESUM_SEND ; Resume SCS send wait queue 
2 8EDO 4 711 POPL RO ; Restore soved. VMS status 
01 ° B1 1F re CMP RO, #SS$_NORMAL 3; Was ACCEPT ok 
0 12 O16 71 BNEQ ACCP_ABORT : Branch if x... 

036D 31 rs 9 BRW RESUME _CONCALL ; Resume SYSAP 
ite oie ACCP_ABORT: 

0383 31 O1FB og BRW SCSSCLOSE_CDT : Clean up the CDT that went 
1FE 21 ; with the ACCEPT request and 
if 731 notify caller that ACCEPT failed 
1FE 722 -DSABL LSB 
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v04 = REC_REJ_REQ, PROCESS REC'D REJECT REQU grrr 4 80; 216: 3 LORIVER. SREIPASCSCTL «MARS 1 at (12) 
IUf -SBTTL = REC_REJ_REQ, PROCESS REC'D REJECT REQUEST 
1FE 726; 
wal: 3; This routine is called upon receipt of a REJECT_REQ message. Action 
4 Ef 3 3; is as follows: 
4 4 ? ; CDT State Action 
1,4 Soe gi 5 CON_ACK Save reject reason and send REJECT_RSP. 
we 8 fa9 3 Deallocate all buffers owned by CDT. 
1FE 734; Deallocate CDT. Resume SYSAP with 
ire g 5; error status and reject reason. 
ig Hae $i 3 Sequence # check Send back a fospense that tells 
1FE 738; fails remote SCS that this CDT went away 
O1FE 739; via a unilateral DISCONNECT 
O1FE 740; 
pire 741 : Inputs: 
1FE eee s 
O1FE 743 ; Re “Addr of REJECT_REQ message 
O1FE 744 ; R “Addr of CDT 
O1FE 745 ; “Addr of PDT 
O1FE 746; 
O1FE 74 i Outputs: 
O1FE 748 : 
O1FE 749; RO-R2 -Destroyed 
O1FE 750 : other registers -Preserved 
O1FE 751 ;:- 
O1FE P36 
O1FE 75 -ENABL LSB 
O1FE 754 
O1FE 755 REC_REJ_REQ: 
O1FE 756 
0374 30 O1FE 757 BSBW SCSSCHK_SEQNUM ; Check if CDT is ** 
C1 50 €9 0201 758 BLBC RO,CDT_CLOSED 3; Branch if not -- we 
0204 759 ; done a unilateral DISCONNECT 
0204 760 SCHK_CDTSTATE - : Verify that m4! state is 
0204 761 CON_ACK,=- 3; CONNECT ack’ed; if not, 
6 04 76 ERROR=BREAK_VC : fatal state error 
0390 30 OD 76 BSBW + aia ScssTs ; Translate SCS resson code to VMS 
° DD 3 19 764 PUSHL 3; Save reject reaso 
55 68 A DO 1 765 MOVL EDTSL_ERS(RS) .RS ; Restore SYSAP's content? R5, 
64 AS D 18 76 PUSH sores FPC(R3) ; and PC from CDT 
50 g f 1 76 MOVZWL #5Cs C_STNORMAL ,RO 3; Set for success status in RSP 
1 A 1¢ 6768 BSBW SCSSSER 3; Send reject response 
2 0 1f 769 BSBW SCSSDEAL_ ALLBUF : Deallocate all buffers owned by CDT 
00000000'°GF 16 ; 770 JSB G*SCSSDEALL_CDT 3; Deallocate the CDT 
51 4A 0 771 MOVL 4(SP),R 3 Get reject reason again 
50 02 C C ore MOVZWL #SS$ REJECT, RO ; Set main status = reject 
% AE 4 00 Bae a MOVL R4,4TSP) ; Save PDT addr over reject reason 
1 5 77% JSB Bp) : Call SYSAP with error status 
54 BED 7 775 POPL R4 3; Retreive PDT addr 
0 A 76 RSB 3; Return 
Be 
B 778 -DSABL LSB 


PASCSCTL 
v04 


<SBTTL - REC_REJ 


is as follows: 
COT State (Listener) 


3 CON_REC 
3; Inputs: 
3 R 
3 Rg 
3 RG 
8 ; Outputs: 
9 ; —59 
other registers 
0238 Hi 33° . 
0238 04 
0238 05 -ENABL LSB 
0238 Be 
0 38 80 REC_REJ_RSP: 
3B 08 
0238 809 SCHK_CDTSTATE - 
8 38 86810 REJ_SENT,- 
38 gi ERROR=BREAK_VC 
0206 0 0244 4 BSBW SCSSDEAL_SCSREC 
02F5 0 8 47 81 BSBW SCSSFREE LISTE 
0149 0 4A Ble BSBW SCSSRESUM_SEND 
50 01 3C 024d 15 MOVZWL #SS$_NORMAL,RO 
0315 31 025 sis RW RESUME _CONCALL 
025 1 
025 818 -DSABL LSB 


16*SEP-1984 01:13: P 
= REC_REJ_RSP, PROCESS REC'D REJECT RESP ‘SaSep-1984 GOL1e:S¢ FORIVER caeapAteccee mans? P29 49, 


RSP, PROCESS REC'D REJECT RESPONSE 


AX/VMS Macro V04-00 


+ 
This routine is called upon receipt of a REJECT_RSP message. Action 


Action 


Return state to listen. Resume 

SCS send wait queue. Resume 

SYSAP with success pegerd\ese of the 
status in the REJECT_RSP. 


“Addr of REJECT_RSP message 
“Addr of CDT 
“Addr of PDT 


“Destroyed 
-Preserved 


Verify that CDT state is 
is connect received; if not, 
fatal state error 
Deallocate the SCS receive buffer 
Put Listener back in Listen state 
Resume SCS send wait queue 
Set status to success 
Resume SYSAP 


PA 
vO 


— — — — — — — — — —— — — — — — — — — — — —— ———— — —— 


B-1984 O1:13:38 VAX/UMS Macro v04-00 Poge 71, 


3 
—Roaoagt = 
v04 ~ REC_DISC_REQ, PROCESS REC'D DISCONNECT 5-SEP-1984 DRIVER. SRCJPASCSCTL.MAR; 1 
-SBTTL = REC_DISC_REQ, PROCESS REC'D DISCONNECT REQUEST 


> 
This routine is called upon receipt or @ DISCONNECT_REQ message. It is 
valid for several CDT states and action is as follows: 


CDT State Action 
OPEN Set state to disconnect received. 
Save disconnect reason. Send 


en 
DISCONNECT_RSP. Call SYSAP error 
sddress with error status and reason 
code. 


DISC_ACK This is a matching DISCONNECT. 
Send RSP. Retreive saved SYSAP 
context from CDT. Deallocate 

CDT and receive buffers. Complete 

SYSAP’s DISCONNECT call with 

success status. 


DISC_SENT This is a matching DISCONNECT 
that crossed ours in the mail. 
Send RSP and move CDT state to 
DISC_MTCH. 


Sequence # check Send RSP with success status. 
fails 


Inputs: 


Pete te tet et oat oak eal al al al al val — al al ae oe ot oe ot ot ot ot ot 


NAME AN OS ONAN EWN SO OD NIA UNE WIN CO OD NOUN ODNOAUE WO 


Pe wale al ah ab Ab Ab Ab Ah Ab ab db Ab ab db db db db db bed bed bebbbbeb bbb bbb Ab sh sh sh sh sb sh dh sh dh ah th db hh dh dh dh hh oh) 


88 Oo oO oO oO o O — 


SOOOSOCOSOCOSOOSOOOSOOSOSOOSCOOCOCOOOOCOCOOOCOCOSC XV⏑ 0 O⏑ ⏑—⏑ 4⏑4—⏑⏑ 4⏑ ⸗—⏑ —⏑ —⏑ 4—⏑ —⏑ 0 ⏑ —⏑ O 4⏑ —⏑ —⏑ 4⏑⏑ -X⏑Æ⏑⏑ 1⏑ —E⏑ 4—⏑ 1[⏑⏑ 4⏑—— 


8 
8 
8 
: 
9 “Addr of DISCONNECT_REQ message 
R “Addr of CDT 
R4 “Addr of PDT 
Outputs: 
RO-R2 “Destroyed 
other registers -Preserved 
-ENABL LSB 
REC_DISC_REQ: 
31F 30 BSBW SCSSCHK_SEQNUM : verity that the CDOT is still ours 
35 50 € BLBC RO,REC_BISC_CLOSED ; Branch if not-- must have done a 
6 ; unilateral DISCONNECT 
8 SDISPATCH - 
$ COTSU_STATE (RS) .= ; Dispatch on current state 
—9— <CDTSC_OPEN,  REC_DISC_OPEN>.-; OPEN 
7 <CDTSC“DISC_ACK,REC-DISC-ACK>,- ; DISCONNECT ack'ed, 
23 <COTSC“DISC"SENT ,REC_DISC_SENT>,- ; DISCONNECT sent 
75 
02c6~ 31 76 BRW BREAK _VC ; Fatal error if other state 


<v 
oF 


1936-198 
~ REC_DISC_REQ, PROCESS REC'D DISCONNECT 5-SEP-19 


J 


68 
; 


i | 


Wu rNe 


emmmnmna oo 


3 


REC_DISC_OPEN: 
MOVW 


REC_DISC_CLOSED: 


MOVW 
BRW 


REC_DISC_SENT: 
MOVW 
BSBW 
MOVW 


RSB 


DBYOB 
2 


SCSSSEND_RSP 
#SSS_ DISCONNECT. RO 
ACDTSL_ERRADDR(RS) 


#SCS$C_STDISC,RO 
SCSSSERD_RSP 
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Move state to disconnect received 


Convert SCS status to VMS 


and save it 

Send DISCONNECT response 
Restore disconnect reason 
Set status to disconnected 


Save R4 
Call SYSAP error addr 
Restore R4 

Return 


Set response status 
Send response to DISCONNECT 
Complete SYSAP DISCONNECT call 


Set response status 
Send response to DISCONNECT 


; Set response status 
; Send response 
; Move CDT state to matching 


DISCONNECT received 
Return 
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16-SEP-1984 01:13: AX/VMS Macro V04-00 P 
= REC_DISC_RSP, PROCESS REC'D DISCONNECT 'S-SEp-19B6 SOL1e;5% LDAIVER.caeaPAgcSC ye mars? 29° (f2, 


-SBTTL - REC_DISC_RSP, PROCESS REC'D DISCONNECT RESPONSE 


This routine is called upon receipt of a sea a 4 BE RSP. It is 
valid in more than one state and action is as follows: 


i, 
1 
1 hag 
14 ; 
18 
13 : CDT State Action 
15 ; DISC_SENT This is a response to a 
0; previously sent DISCONNECT. 
13 ve CDT state to DISC_ACK 
§ : and exit. 
924 ; DISC_MTCH This is a response to a 
925 ; DISCONNECT sent that crossed 
9 3 a received DISCONNECT in the 
927 ; mail. It is time to close the 
g 8 3 CDT and not ity the SYSAP that 
4 5: its DISCONNECT is done. 
0 4 1: Inputs: 
2 Re “Addr of DISCONNECT_RSP message 
8 934 ; PR “Addr of CDT 
4 53 “Addr of PDT 
0 $37 : Outputs: 
0 939 : RO-R2 “Destroyed 
0 Bey 8 other registers -Preserved 
942 ° 
° 38 REC_DISC_RSP: 
945 SDISPATCH - 
0 268 coTsu_ STATE(R3),- : Check for legal state: 
0 94 <CDTSC_DISC_SENT RSP P_DISC_SENT>,- ; DISCONNECT sent, 
44 <COTSC_ “DISC_MTCH,RSP_DISC_MTCH>,- ; Matching DISC rec'd 
951 
0284 31 J 33 BRW BREAK_VC : Other state is fatal 
Pr Bee RSP_DISC_SENT: 
03 80 AB 329 MOVW #CDT$C_DISC Att.= : Move CDT state to 
28 A AD 95 COT$W_STATETR : DISCONNECT ack‘ed 
00E4 31 AF 328 BRwW SCSSRESUM_SEND 3 Resume anyone waiting 
: 223 : for SCS send buffer 
: 8 RSP_DISC_MTCH: 
00E1 30 8 368 BSBW SCSSRESUM_SEND ; Resume anyone waiting 
8 964 ; for SCS send butter. 
50 01 Ht 8 965 10$: MOVZWL #SS$_NORMAL ,RO 3 Set stetus” to succe 
026 1 = 308 BRw SCSSCLOSE _C6T ; and complete SYSAP SO ISCONNECT call 


0288 968 


~ REC_DISC_RSP, PROCESS REC'D DISCONNECT * —8 1984 0:18 3 
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16-SEP-1984 01:13: AX/VMS Macro v04-00 Pa 5 PA 
CONNECTION AND SCS CONTROL SUBROUTINES ‘SaSEP-19b¢ DOL1aLSs FORIVER.caeaoacec oe man:1 2% (Fey. ve 


~SBTIL CONNECTION AND SCS CONTROL SUBROUTINES 
-SBTTL = SCSSREQ_SCSSEND, REQUEST SEND OF SCS CONTROL 
-SBTTL = MESSAGE 


CSSREQ_SCSSEND is called when an SCS control message is to be sent. The 
lock state defines the kind of control message to send: CREDIT_REQ, 
ONNECT REQ, REJECT REQ, ACCEPT_REQ, DISC_REQ, or fina 

CREDIT Followed by BISCONNECT. “The COT contains sufficient 

; information to format the outgoing control message. 


Since a single SCS message buffer is available for each path to a 
remote system, SYSAP’s may have to wait for the buffer to become available. 
; The wait queue is a Linked List of CDT's (Linked via CDTSL_WAITQFL/BL) with 
Listhead in the path block. A CDT is removed from the wait ue as 

soon as it receives control of the SCS send message. The SCS message 
address in the path block is anes to determine if the send message 

buffer is currently available. (0/non-0 <--> not avail/avail.) 


CoCo COCO COCOCO OOOO I INN 
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Only one block state may be in effect at a time for a CDT and therefore 
the CDT will never need to appear more than once on the wait queue. 
However, there are two cases where SCSS$REQ_SCSSEND may be called for a 
COT that is already on the SCS send wait queve. One case is where 


ODOOOOOOOOOOOOOO 


991 


| 
| 
| 
| 
99 two msgs have been —58 for receive, each triggers a CREDIT_REQ 
994 ; (Likely if SCSFLOWCUSH and/or MIN_REC are greater than 0), and both 
995 ; must wait. The second wait occurs when the CDT is oi ready 5 and 
8 waiting. The second case is when a SYSAP issues a DISCONNECT on a 
99 CDT which already waiting to send a credit. In all cases, if the CDT 
8 is already waiting to send an SCS control * it is ohey to just | 
99 change the block state to the new state as the Df sits on the queue. 
1308 The original request is then replaced by the new request. 
1 8 If the SCS send buffer is free, then the control message is sent immediately. 
100 Otherwise, the CDT block state is checked. If zero, the CDT is inserted 
4 on the tail of the queue. The CDT block state is then set. 
' 88 Inputs: 
1 8 9 “Block state code (l.o. 16 bits) 
100 8 “Addr of CDT 
: 9 RG “Addr of PDT 
! 3 Outputs: 
1014 RO-R2 -Destroyed 
: te other registers -Preserved ! 
101 
' H -ENABL LSB | 
1020 SCS$REQ_SCSSEND:: | 
3! 10 Ad. 0 1 § MOVL COTSL_PB(R3) ,R1 : Get path block addr 
2 40 41 1 MOVL PBSL_SCSMSG(R1) .R2 ; Get addr of SCS msg buffer 
OF 1024 BNEQ SEND NEXT_SEND : Branch if buffer available 
2a 433 8 1025 TSTW CO1SO_BLESTATE(R3) ; CDT currently waiting to send? 
0 1 1026 BNEQ 10$ ; Branch if so | 
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0 as OE 

C8 
2a 43 50 4 
40 Al D4 


MESSAGE 
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OOOOoO o soy 
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16-SEP-1984 

meet 

INSQUE CDTSL_WAITOFL(R3),- 
@PBSL-WAITOBL(R1) 


noe RO, CDTSW_BLKSTATE(R3) 


BUGCHECK CIPORT 
-DSABL LSB 
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13:38 ve 
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The SEND_NEXT_SEND entry is called when 
is available fo send a new control message. 


Link CDT to end of 


SCS send wait queve 
Save block state 


Return to caller (msg not 
yet sent) 


the SCS send message buffer 
The inputs to this entry: 


Inconsistent CDT state field 


1 
1 
1 
1 
1 
1 
1 
1 ; 
1 3 
: 3 
1 3 R “Block state 
1 3 iH “Addr of PB 
1 9 “Addr of SCS message buffer 
1041 ; kK “Addr of COT 
; Addr o 
104 RG Add f POT 
1045 ; 
1048 
! 8 Block state value assumptions: 
1048 ° 
1 $ ASSUME CDOTSC_CON PEND €Q 1 
1 39 ASSUME CDTSC_ACCP_PEND EQ ; 
1051 ASSUME CDTS$C"REJ PEND €0 
1 26 ASSUME CDTSC_DISC_PEND EQ 4 
1 ASSUME CDTSC“CR_PEND €0 5 
’ 33 ASSUME CDTSC“DCR_PEND €0 6 
; 2$ SEND_NEXT_SEND: 
1 38 CLRL PBSL_SCSMSG(R1) : Show SCS send buffer unavail 
105 CASE RO,<= 3; Dispatch on block state: 
1060 BLK_ST_ERR 3; undefined 
1061 SEND_ CONNECT, = ; Send CONNECT REQ 
1306 SEND_ACCEPT,= ; Send ACCEPT_REQ 
106 SEND_REJECT,- : Send REJECT REQ 
1 SEND_DISCONNECT,- : Send DISCONRECT_REQ 
1065 SEND_CREDIT,= : Send CREDIT_REQ 
: ? SEND_CREDIT> Send CREDIT-REQ+DISCONNECT_REQ 
! BLK_ST_ERR: 
1 
1 
1 
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PASCSCTL 16-SEP-1984 01:13:38 YAX/VMS Macro v04-00 Page 27. 
— S—kNDCREDIT, SEND A CREDIT REQUEST $78 oats vi — DPRIVER. SACIPASCSCTL. MARG na d 
: } Me -SBTTL = SEND_CREDIT, SEND A CREDIT REQUEST | 
FO 1076; 
: ! 7 ; SEND CREDIT == Format and send a credit message. 
f 8 ; Inputs: 
FO 1 ? : RO “Block state 
FO (1 § : R1 “Addr of 
FO 61 3 Re “Addr of message buffer 
FO 10846 ; R “Addr of CDT 
: } $3 RG “Addr of PDT 
: ! ? ; Outputs: 
FO 1089 ; RO,R1 “Destroyed 
: : + 3 other registers -Preserved 
oe 188s 
: : 3 Message format and CDT offset assumptions: 
FO 1096 © 
F i ASSUME SCSS$L_DST_CONID+4 EQ SCSS$L_SRC_CONID 
r 44 ASSUME CDT$L_RCONID+4 EQ CDTS$L-LCONID 
9 1199 -ENABL LSB 
0 4 1136 SEND_CREDIT: 
06 50 861 F 1104 CMPW RO, #CDTSC_DCR_PEND : Is this part of DISCONNECT? 
09 12 O2F3 1105 BNEQ 10$ > Branch ot 
OA3 OE F5 1106 INSQUE CDTSL_WAITQFL(R3),- : Else requeve COT for 
C BI F8 1107 Rn WAITQBL(R1) ; DISCONNECT 
04 B60 FA 1108 MOVW #COT$C_DISC_PEND,- 3 and move CDT state to 
2A AS re 119) CDTSW_BLKSTATE (RS) ; DISCONNECT pending 
1 80 FE 1111 10$: MOVW #SCS$C_CR_REQL,- : Set Length of CREDIT_REQ msg 
FOA 0p 1118 SCS$W_CENGTH(R2) ; 
0 B0 02 111 MOVW S$C_CR_REQ,- ; Set SCS message type 
F4 A2 04 1114 SCS$W_ATYPE (RO) ; 
06 1118 FMT_SCS_CREDIT: : Entry for finishing SCS msg w/credit 
46 43 80 be 1118 MOV CDTSW_PENDREC(R3) ,- : Copy pending receive 
FO A BB 1119 SCS$W_CREDIT(R2) 3; credit to message 
8 A AO 1120 ADDW 3 sia Mead : Move pending recv credit to 
42 A OE 1121 COTSW_REC(RS) ; _receive credit 
46 A B4 : i § CLRW COTSW_PENDREC(R3) : Pending recv credit --> 0 
: i ¢ FMT_SCS: : Entry for finishing SCS w.o. credit 
14 A353 7D 13 (11 § novo CDTSL_RCONID(R3) ,- ; Set source connection ID 
FB A2 18 11 SCSSL DST_CONID(R2) 3; _and remote connection ID 
oF i 18 11 8 BRB SNDMSG : Send message and return msg 
1A 11 : buffer to free qyeus for 
1A 11350 ; corresponding RSP 


n 3 
VOeoo0" : = SEND.CREDIT, SEND A CREDIT Request  'SasePa}984 HOL1E:5% LORIVER. eeePAsesc 


Osa 1132 -DSABL LSB 
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= SEND CONNECT, SEND A CONNECT_REQ -SEP-1984 00:16: DRIVER.SRCJ PASCSCTL.MAR: 1 (18) 
.SBTTL - SEND CONNECT. SEND A CONNECT_REQ | 
° :+ | 
; SEND CONNECT == Format and send a CONNECT_REQ Seqsoge ° 
; COMMON, CONNECT == ony Lete formatting and transmission of a CONNECT_REQ 
; CCEPT_REQ message 
; ; Inputs: | 
: “Addr of PB 
; “Addr of start of message buffer 
; “Addr of CDT 
; “Addr of PDT 


Connecting/Accepting CDT: 


- : COTSL_RPROCNAM “Addr of remote proc name 
3 : “Addr local proc name 
; ; -Addr of connect data from local 
; INITREC “Initial credit to extend 
3 ; RCONID -Remote connect ton ID 
3 3 ONID “Local connection 
; 3 MINSEND “Minimum send credit req'd by local SYSAP 
; ; SCSMSG “Addr of message buffer holding CONNECT_REQ 
3 3 Outputs 
: “Destroyed 
; : other registers -Preserved 
35 ; Message and data structure adjacency assumptions. These also apply 
; ; to the following routine, SEND_ACCEPT. 
3 
; _MTYPE+2 


: “LPROCNAM of 
; CONDAT 
LC 1D 
; PDT -PDT 
: RO,R1 
; C 
CREDIT 
D 
W 
STATUS 
TATUS+ 
Sst PROC 
=CON_DAT 
ASSUME CDTSL_RPROCNAM+4 EQ CDTSL_LPROCNAM 
-ENABL LSB 
0062 BF 8F BO MOVW #SCS$C_CON REOL : Set Length of CONNECT_REQ msg 
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COTSL_RCONID+4 EQ CDTSL_ CONID 
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SCS$W 

SCS$W~ 

SCS$L- 
ASSUME SCSS$L-SRC"CON 

SCS$W_ 

SCS$u_ 

SCS$T_ C_PROC 

SCS$T~ Al⸗ PROC+1 
ASSUME CDTSLILPROCNAM+4 EQ CDTSL-CONDAT 
SEND_CONNECT: 

SCS$W_CENGTH(R 
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= SEND_CONNECT, SEND A CONNECT_REQ -SEP-1984 00: DRIVER.SRCJPASCSCTL.MAR;1 (18) | v04 
50 FGA 3 0 1191 MOVAW SCSSW_MTYPE(R2),R ; Get addr of SCS msg type code 
80 06 80 3 1136 MOV BSeSSC CONC REG, (ROD + ; Set type code Aris 
f 1198 COMMON_CONNECT: 
80 464A 8 7 1138 MOVW Fo Teu pempnes (hg) - <node ; Copy initial recv credit to msg 
8 é 8 B 119 MOVW 1 aa dat te ),- : Copy initial to current recv credit 
42 A 1198 CDOT$SW_REC(R3) 3; _tally in COT 
46 A 4 1199 CLRW COTSW_PENDREC(R3) ; Zero pending receive 
80 146A D 1200 ova CDTSL_RCONID(R3),(RO)+ ; Copy remote (0) & Local connx ID's 
80 GAA 3¢ 1201 MOVZWL CDTSW-MINSEND (R35 (RO)+ ; Copy min send credit req'd 
54 SOA D B 1 § MOVAL CDTSL“RPROCNAM(R3) ,R4 ; Get addr of destination process name 
1 a — SBB MOV_PROCDATA 3 Copy dest process name to msg | 
OF + 41 1204 BSBB MOV_PROCDATA ; Also, source process name, 
8 1 43 1205 6SBB MOV_PROCDATA 3 _and connect data. 
54 104 DO 45 1 § MOVL COTSL_PDT(R3) ,R4 ; Restore R 
50 D4 49 1207 SNDMSG: CLRL ß ; Send msg and return buffer to 
51 1 AS, DO 0348 1208 MOVE  CDT$L_PB(R3),R1 : Get PB addr in RI | 
FCAE’ 1 tH : BRW INTSSRDMSG : free queue for corresponding response | 
0352 1211 
0352 1 1 3 
0352 1213 ; Subroutine to move 16 bytes of data from source address pointed 
0352 1214 ; to by R4 to destination address in RO. 
0352 1215 ; 
0352 1 18 
033 if MOV_PROCDATA: 
51 84 0352 1219 MOVL (R4)+,R1 : Get addr of source of data 
80 81 7D 0355 1 $9 novo (R1)+,(RO)+ ; Copy 16 bytes from source to 
80 81 7D 0358 1221 MOVQ (R1)+,(RO)+ 3; _message buffer 
0358 1 $§ RSB ; Return 
035C 122 
035C 1224 -DSABL LSB 
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-SBTTL = SEND_ACCEPT, SEND AN ACCEPT_REQ 


ge 
; SEND_ACCEPT == Format and send an ACCEPT_REQ 


1 
J 
81 
1: Inputs: | 
— R1 “Addr of PB | 
5C 1234 ; S “Addr of start of message buffer 
2 1235 ; R “Addr of CDT 
: : § $ RG “Addr of PDT 
0 st 8 ; Accepting CDT: | 
035C 1240: CDTSL_RPROCNAM “Addr of remote proc name 
8 5C 12461; LPROCNAM “Addr of local proc name | 
$2 1 tg 3 CONDAT “Addr of connect data from local 
035C 1243; INITREC cinitial credit to extend | 
ßet 1244 ; RCONID “Remote connection ID 
$e 1245 ; LCONID -Local connection ID 
0O35C 1 9 MINSEND “Minimum send credit req'd by local SYSAP 
035C 12467; PDT -PDT 
O35C 1248 ; 
SBE {esp { outouts: | 
Peet : 3] ; af ist —— 
* other registers -Preser 
O35¢ 1358 f- * | 
O35C 1255 .ENABL LSB | 
O35¢ : 3 SEND_ACCEPT: 
wee | of B0 O38 ! 23 MOVW 4 33 “CENGIRCR2) : Set length of ACCEPT_REQ msg 
50 FAL 3€ 0362 1261 MOVAW SCSSW"M TYPE R2) RO Get addr of scs o type 
80 02 60 0366 1 ¢ MOVW #SCSST_A ACCP_REQ,(RO)+ : Set SCS msg t 
dt 11 88 8 BRB CGMMON~ CONNECT 3; Join code Bee with CONNECT | 
0368 1265 -DSABL LSB 


~ SEND_REJECT, SEND A REJECT_REQ 
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DRIVER. SREI PASCSCTL.MAR; 1 
SEND A REJECT_REOQ 
SEND_REJECT == Send a REJECT_REQ message 


of PB 
“Addr of start of message buffer 


0,R1 
other registers 


; Set REJECT_REQ msg length 


; Set SCS msg typ 

and zero qreatt field 

; Zero minimum credit field 
; Copy vozest reason 


: Finish: 8 * send msg 
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DISCONNECT, SEND A DISCONNECT _REQ * “SEP=1 
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0 -SBTTL = SEND_DISCONNECT, SEND A DISCONNECT_REQ 
s¢ 
: SEND DISCONNECT <= Format and send (at low priority) a DISCONNECT_REQ. 
: Inputs: 
; R1 “Addr of PB 
3 Bp “Addr of start of message buffer 
; R “Addr of CDT 
: RG “Addr of PDT 
: Outputs: 
: RO,R1 -Destroyed 
3 other registers -Preserved 


; Message and CDT format assumptions: 


ASSUME SCSSW_MTYPE+2 €Q SCS$W_CREDIT 
ASSUME SCSSLIDST_CONID+4 EQ SCSSL_SRC_CONID 


ASSUME CDTSL_RCONID+4 EQ CDTSL_LCONID 


BNEW 2 OOD OOD OD NOU EWN O OONOAUNE Win 


-ENABL LSB 
SEND_DISCONNECT: 
MOVW #SCS$C_DISC_REQL,- : Set DISCONNECT_REQ Length 
SCS$W_CENGTA(R2) : 
MOVZWL #SCS$C_DISC +h ha 3 and msg type; and 
SCS$W_ATYPETR2) > _zero credit field 
CLRW SCSS$W_MIN —4 ; Zero minimum credit 
MOVW COTS$W_REASON(R3) ,- : Copy saved DISCONNECT 
7 EU det 3; _reason to status 
mova COTSL_RCONID(RS) ,- : Copy dest, src connx ID's 
SCS$L-DST_CONID(R2) : 
CLRL RO ; RETFLAG = 0 
BRW INTSSNDMSGL ; Send off message at low 
3 PRIORI TY=LOW 3 priority behind all other 
; currently queued msgs and 
; block transfers 
-DSABL LSB 
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PASCSCTL 16-SEP-1984 01:13: AX/VMS Macro v04-00 Page 34 PAS 
v04 = SCSSRESUM_SEND, RESUME SCS CONTROL MES $73 sat} — — ——⏑—⏑— —— — ° By v04 
134 .SBTTL - SCSSRESUM_SEND, RESUME SCS CONTROL MESSAGE 
~SBTTL — SEND QUEUE 


> 


This routine is called when an SCS control message response is received. 
Receipt of the response indicates that the SCS send buffer is now free 
and a new SCS control message ney be sent to the remote system. The 
response message buffer is used for the next send. 


The wait mary (Listhead PBSL_WAITOQFL) is checked for waiting CDT's. 


Branch if nobo y waiting 
Back up to start of CDT 

Get block state 

Zero block state of resumed CDT 


SUBL #CDTSL_WAITOFL,R3 
MOVW CDTSW_BLKSTATE(R3),RO 
CLRW CDTSW-BLKSTATE(R3) 


BSBW SENO_REXT_SEND Go send the message 


BRB Join common exit 
208: MOVL R2,PBSL_SCSMSG(R1) : Save SCS msg addr for future 
30$: POPL R3 ; Restore CDT receiving response 
RSB 3; Return 
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-DSABL LSB 


; | 
3 If any CD waiting, then if is dequeuved and its SCS control message 
3 gent If no COT is pelt ing. then the buffer containing the response 
; is Linked to the path block for future use. 
; Inputs: | 
: Re “Addr of SCS response message buffer | 
3 ® “Addr of CDT receiving SCS RSP message 
; R4 “Addr of PDT 
3 Outputs: | 
: RO-R2 -Destroyed 
3 other registers -Preserved 
.ENABL LSB | 
SCSSRESUM_SEND: | 
MOVL COTSL_PB(R3),R1 Get path block addr 
PUSHL Save CDT receiving response 
ec neue @PBSL_WAITQFL(R1) ,R3 Get CDT waiting to send | 
| 
| 


i or 1880 8 
- SCSSSEND_RSP, TURN SCS REQ AROUND INTO 5-SEP-1984 00:16: 
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1395 -SBTTL = SCSSSEND_RSP, TURN SCS REQ AROUND INTO 
: 38 -SBTTL = SCS RESPONSE 
1398 ;¢ 
1 3 3 One receive eqseoge buffer per port-port virtual circuit is reserved 
14 , ; for receipt of SCS REQ control messages by all connections on the 
1401 ; ve. is routine is called with the reserved receive buffer 
14 § 3 occupied by an SCS REQ. SCSSSEND_RSP modified the REQ type message 
1405 ; into its corcospendtag RSP and sends it to the remote system. The 
1404 ; RSP message is sent with RETFLAG false so that the message buffer is 
1? 5 ; returned to the free queue to receive a new SCS REQ. 
14 5 ; Note that certain SCS commands must be retained Oy, te caller 
14 3 : for further processing by the SYSAP. These are CONNECT_REQ and 
1409 ; ACCEPT_REQ. the caller is expected om these cases to have copied 
1410 ; the RE message into the SCS buffer allocated for each CDT 
101) ; (CDTSL_SCSMSG). 
1418 3 Inputs: 
1415 ; RO “Status to send out with RSP, 0 if none 
116 3 Ri “Credit to confirm if applicable 
1417 ; R2 “Addr of SCS REQ message 
1213 3 R4 “Addr of PDT 
1419 ; 
1° Y ; Outputs: 
14 § : 0,R1 “Destroyed 
3 other registers -Preserve 
14 h i P d 
138 
14 § 3 
1? é 3 Message format assumptions: 
1429 
1450 ASSUME SCSSC_CON_REQ €0 0 
1431 ASSUME SCSSC_CON RSP €EQ 1 
14 § ASSUME SCSSC"ACCP_REQ €E0Q ; 
14 ASSUME SCSSC_ACCP_RSP €EQ 
1434 ASSUME SCSS$C"REJ_REQ £0 4 
1435 ASSUME SCSSC_REJ RSP €Q 5 
14 $ ASSUME SCSS$C_DISC_REQ €0 § 
1437 ASSUME SCSSC_DISC_ RSP EQ 
14 3 ASSUME SCSS$C"CR_REQ EQ 8 
1e7 ASSUME SCSSC_CR_PSP EQ 
teat ASSUME SCSSC_REJ_RSPL €EQ SCSS$C_DISC_RSPL 
1268 -ENABL LSB 
1444 
1002 SCSSSEND_RSP: 
1409 CASE SCSS$W_MTYPE(R2),<- 3 Di spete® on request type 
98 SEND_CON_RSP,- : CONNECT_REQ 
144 ILLMSGTYP,- : CONNECT-RSP illegal 
1450 SEND_ACCP_RSP,- ; ACCEPT_REQ — 
1451 ILLMSGTYP>- 3; ACCEPT_RSP illegal 
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16-SEP-1984 
gre eE obs 8 
SEND_REJ_RSP,- 
tit 7 ie 
SEND_DISC_RSP> 
ILLMSGTYP: 
BUGCHECK CIPORT 
SEND_ACCP_RSP: 
MOVW #SCS$C_ACCP_RSPL,- 
SCS$wW_CENGTA(R2) 
BRB COMMORN_RSP2 
SEND_REJ_RSP: 
SEND-DISC_RSP: 
MOVW #SCS$C_REJ RSPL - 
SCS$W_CENGTH(ROS 
BRB COMMON _RSP2 
SEND_CON_RSP: 
MOVW #SCS$C_CON_RSPL,- 
SCSBu_CENGTH(RG! 
CLRW © SCSSW"MIN ROR ) 
BRB COMMON_RSP 
SEND_CR_RSP: 
MOVW #SCS$C_CR_RSPL,- 
SCS$w_CENGTH(R2) 
COMMON_RSP1: 
INCW  SCS$W_MTYPE(R2) 
MOVL  SCSS$LDST_CONID(R2) 
MOVL SCS$L“SRC“CONID(R2) 
SCS$L-DST-CONID(R2) 
MOVL  RO,SCSSL_SRC_CONID( 
CLRL OR 
Rw INTSTRNMSG 
: STURNMSG RETFLAG=FALSE 
COMMON_RSP2: 
CLRW SCS$W_CREDIT(R2) 
MOVW RO,SCS$W_STATUS(R2) 
BRB COMMON_RSP1 
-DSABL LSB 


acro V 
RCJPAS 


; Any other type is illegal 


Set response message length 


Join common formatting 


; Set response message length 
: Join common formatting 


; Set CONNECT_RSP Length 


F Zero minimum credit 
; Join common code 


: Set credit RSP Length 


Convert type from REQ to RSP 
swap destination 
an 


source 
connection ID's 
RETFLAG = fatse 


: Send off message 


: Credit = 0 
3; Status = caller-specified value 
Join common completion 
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“SEP=-19 1:13: AX/VMS Macro V04- 
= SCSSCOPY_ACCP, COPY CONNECTION PARAMET E Pa 19be 80:18 38 LORIVER ER.SRCJ PASCSC L.MAR;1 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


-SBTTL = SCSSCOPY_ACCP, cory onto n PARAMETERS 
-SBTTL = OM ACCEPT MESSAGE TO COT 
30 
3 SCSSCOPY_ACCP copies the grote, sender's connect ID, and minimum 
i credit ffom the ONN “yh Bee ¢ Accept *REO message to the SEND credit, 
; RCONID, and MINSEND fields o ? the Cort? 
; Inputs: 
: R2 “Addr of message contianing CONNECT_REQ 
; or ACCEPT _REQ 
3 R3 “Addr of CBT 
; Outputs: 
: ALL registers -Preserved 
-ENABL LSB 
SCSSCOPY_ACCP:: 
MOVW SCS$W_CREDIT(R2),- ; Copy extended credit to CDT 
CDT$W_SEND(R3) : 
MOVL SCSSL_SRC Comep tne) .~ 3; Copy remote CONID to CDT 
COTSL_RCONID(R3) : 
MOVW SCSS$W_MIN by : Copy remote SYSAP’s minimum 
COTSW_MINREC(RS) 3; _send credit to CDT 
RSB ; Return 


-DSABL LSB 


| K 
PASCSCTL 16-SEP-1984 01:13: AX/VMS Macro V04-00 
v04 = SCSSSAVE_REG, COPY SCS REQUEST TO SECO * SEp-198¢ 80:14:88 DRIVER. SRCJPASCSCTL.MAR; 1 


-SBTTL - SCSSSAVE_REG, COPY SCS REQUEST TO SECOND 
-SBTTL = MESSAGE BUFFER 


SCSSSAVE_REQ ¢ jos a 9, Tocelved SCS request to an SCS yg buffer 
attached to a CDT. This routine is called when a copy of the request 
must be retained while the initial message is turned around into an 
SCS response. 


18 #1 
18 183 
18 1546 
18 15461 ;¢ 
18 1542 ; 
18 15465; 
Hee 
1 1 8 3 
3; Inputs: 
18 1549; a “Addr of SCS buffer containing request 

418 1 : ie “Addr of COT 

9 COTSL_SCSMSG “Addr of CDOT’s SCS msg buffer 
' ! 33 ; Outputs: 
18 1 22 3 RO,R1 “Destroyed 
! : 2$ 3 Other registers -Preserved 
18 #1 28 
1 13 -ENABL LSB 

418 1560 

bet 130) SCSSSAVE_REQ: 

' BB 041 1368 PUSHR #*M<R2,R3,R4,R5> : Save registers 
53 2C AS DO 041A 1564 VL. CDTSL-SCSASGIR3) .R3 ; Pick up receiving buffer 
0042 8F 28 O41E 1565 MOVC3 #SCS$C_CON_RE - 
4g 1366 SCS$W A— 
F2 AS F2 A2 8 156 SCS$W_MTYPE- ; Copy message 
3¢ Be : 1568 POPR #*°M<R27RS,R4,R5> ; Restore registers 
5 06 136? RSB 3; Return 
429 1570 
429 1571 


-DSABL LSB 


L 4 
—B MESSAGE AND DATAGRAM BUFFER ALLOCATION 'S-SEp=198¢ 00:18:58 FORIVER.sRESPASCSCoe mans? 2%" (3g), 


1573 -SBTTL MESSAGE AND DATAGRAM BUFFER ALLOCATION 
1 a -SBTTL = SCSSALL_ALLBUF , ALLOCALS ALL BUFFERS NEEDED 
! 7 -SBTTL = FOR A NEW CONNECTION 
1577 ;3¢ 
? ! 4  SCSSALL_ALLBUF allocated from nonpaged pool: 
1580 ; 1 SCS buffer for connect request storage, Linked to CDTSL_SCSMSG 
1581 ; Initial receive credit worth of toy buffers 
3 } § : Initial dg receive count of datagram buffers. 
9 1 r : The message buffers and datagram buffers are inserted on the 
4 4 ! 3 port free queues for receiving messages and datagrams. 
; ! § : Entry SCSSALL_ALLBUF2 is called to allocate all except the SCS receive buffer. 
4 ! 3 : Inputs: 
429 1591; R3 “Addr of CDT getting buffers 
ri 4 : 35 3 RG “Addr of PDT 
Oe ! oe $ Outputs: 
04 9 1596 ; RO “Status: SSS_NORMAL, SSSINSFMEM 
429 1597; (If insufficTent pool, everything 
429 1598; allocated so far is deallocated.) 
429 1599; R1,R2 “Destroyed 
9 1990 ; other registers -Preserved 
259 1602 * 
rs 1608 -ENABL LSB 
ri 3 1983 SCSSALL_ALLBUF :: 
$8 10 0429 1809 BSBB SCSSALL_SCSREC ; Allocate SCS recv buffer 
18 50 = =«E9 " : 1908 BLBC RO,40$ : Branch if error 
4 ; 1919 SCSSALL_ALLBUF 2:: 
48 A B0 — 1o1¢ MOVW COTSW_INITLREC(R3),- : Copy initial receive count to 
46 A 161 — 8ä wong: (AS) 3 —— credit to remote 
42 A 7: 3 1614 CLRW COT$SW_REC(RS) : Clear current receive count 
0 6 1615 BSBW SCSSACL_MSGREC ; Allocate message buffers 
OA 50 8 9 1918 BLBC RO, 308 : Branch if error 
0071 9 C 161 BSBW SCSSALL_DGREC : Allocate datagram buffers 
01 50 3 F 1913 BLBC RO,20$ : Branch if error 
5 ‘§ 193) RSB 3; Return success 
0B0 3 43 1621 20$: BSBW SCSSDEAL_MSGREC : Deallocate message buffers 
D4 rr 1 § 08: 8bu SCSSDEAL_SCSREC ; Deallocate SCS recv buffer 
50 0124 8F HS 49 1624 408: MOVZWL #SS$_INSFMEM,RO : Set error status 
5 rt | 5 RSB 3; Return 
44F 16 § -DSABL LSB 


PASCSCTL 16-SEP-1984 01:13: X/VMS Macro, 04-00 Pa | 
— = SCSSALL_SCSREC, ALLOCATE A MESSAGE BUF * 3 -1 1386 80: 216: OY RIVER.SRCJPASCSCTL.MAR; 1 — Bh 
1 -SBTTL = SCSSALL_SCSREC, ALLOCATE A MESSAGE BUFFER FOR 
! -SBTTL = HOLDING COPY OF SCS REQUESTS 
1 3* 
1 ; This routine allocates one message buffer and Links it to the 
! ¢ 3 COTSL_SCSMSG. 
19 § : Inputs: 
18 8 ; R3 “Addr of CDT getting buffer 
1640 ; Outputs: 
EF mai 
1648 ; “Status: SS$_NORMAL, SS$_INSFMEM 
1645 ; R1,R2 “bestroyed 
1644 ; other registers -Preserved 
ise 
184? -ENABL LSB 
196) SCSSALL_SCSREC: 
FBAE* 30 1651 BSBW INTSALLOC_MSG ; Allocate 1 nesqege | buffer from pool 
50 e9 163¢ BLBC RO,10$ : Branch if didn’t get it 
2c 43 5 d9 165 MOVL R2,CDTSL_SCSMSG(R3) 3; Save its sistent : CDF 
05 1938 10$: RSB 3; Return 
1656 -DSABL LSB 


N 4 | 
PASCSCTL 16-SEP-1984 01:13: AX/VMS Macro v04-00 Page 41 | PA 
—R = SCSSALL_MSGREC, ALLOCATE BUFFERS FOR R —— — DRIVER.SRCJPASCSCTL.MAR;1 ° (28) vo 
A 1 ; -SBTTL = SCSSALL_MSGREC, ALLOCATE BUFFERS FOR RECEIVING 
45a 1 -SBTTL = APPLICATION MESSAGES 
A 166 -SBTTL — SCSSALL_FRMSGS, ALLOCATE MESSAGE BUFFERS AND 
45A 1 8 -SBTTL = PUT ON PORT FREE QUEUE 
18a 1668 
45A 1864 : This routine pe cecenes fhe number of message buffers specified in 
45A 1665 ; COTSW_INITLREC or RO, | ws tng them together as they are allocated. 
458 1666 ; If all are allocated successfully, then they are inserted on the 
45A 1667 ; port free message queue and successful return is taken. | 
45A 1668 ; If there is an allocate failure, then the buffers allocated already 
r r 196 ; are returned to pool and error is returned to the caller. | 
Sih Ef) | trou 
45A 1878 ; 4 -# buffers to allocate (SCSSALL_FRMSGS) 
45A 1674; f “Addr of CDT (SCSSALL_MSGREC entry) | 
tee 192? ; R4 “Addr of PDT 
Be 38 1877 : Outputs: | 
3 1898 : RO “Status: SSS$_NORMAL, SS$_INSFMEM 
45A 1680 ; R1,R2 -Destroyed 
beeA 1681 ; other registers -Preserved 
rar 
045A 16 4 -ENABL LSB | 
3 SCSSALL_FRMSGS: : | 
50 05 045A 1688 TSTL = RO ; Any buffers to allocate? 
06 11 Be3e 108) BRB 5$ 3; Join common code | 
Oe3e 169) SCSSALL_MSGREC: | 
50 48 A3 3 £25 1898 MOVZWL CDTSW_INITLREC(R3),RO ; Get # buffers to allocate | 
? 1 462 1694 5$: BEQL 40$ ; Branch if 0 
DD 0464 1695 PUSHL R5 3; Save RS 
3 DD 9 1696 PUSHL Re : qné R3 | 
53 50 DO 0468 1697 MOVL RO,R3 ; R35 will be buffer counter 
55 D4 8 3 CLRL R5 : Set Link to next buffer = 0 | 
FB90" 30 046d 1960 10S: BSBW INTSALLOC_MSG : Allocate next buffer 
20 2 £9 9 1701 BLBC RO. 208 3; Branch if faile 
$¢ DO 0475 17 § MOVL R5,(R2) 3 Link this buffer to last allocated 
5 bY 8 1 MOVL R2,R5 ; Set RS to point to this buffer | 
F1 38 F 479 1704 SOBGTR R35,10$ ; Branch if_more to allocate 
8EDO 49 3 5 POPL R 3; Restore R3 
52 55 00 47F 17 5 208: MOVL R5,R2 : Get addr of next buffer 
28 1 rt $3 17 3 BEQL 30$ ; Branch if no more 
55 8 3 484 17 MOVL (R2),R5 ; Update ptr to next buffer 
FB ¢° § 487 1710 BSBW INTSINS_MFREEQ : Insert buffer on port free queue 
F 11 r 1 Vt} BRB 0$ ; Branch for next buffer 
55 8E—D0 ? ; 1718 30$: POPL R5 : Restore saved register 


B 5 —— | 
PASCSCTL i ats St 4 9 aE aE Ye vee Macro V04-00 Page 4 | 
vo⸗« - PUT ON PORT FREE QUEUE -SEP-1984 00:16: DRIVER.SRCIJPASCSCTL.MAR;1 (28) | 
50. 01 3 48F 1715 40$: MOVZWL #SS$_NORMAL ,RO ; Set status tc success | 
8 1718 RSB Return | 
es, oe 49 1213 50$: MOVL R5,R2 : Get addr of next buffer 
0 1 496 171 BEQL NO_MSG_MEM 3; Branch if done 
7 © 8 498 1720 MOVL 3; Update ptr to next buffer 
FB62" 498 1721 BSBW INTSOEAL_MsG : Return buffer to pool 
5 11 8 4 g BRB 0$ 3 Check for more buffers 
4A 7 é NO_MSG_MEM: 
50 0124 ef 3¢ 40400 17 § MOVZWL CSS INSPRER RO 3; Set status to fail 
3 BEDO 04A5 17 POPL a ; Restore registers 
55 sed 4A8 17 8 POPL RS ; 
0 4AB 17 RSB 3; Return 
O4AC 1730 
O4AC 1731 -DSABL LSB 


Fete 
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PASCSCTL SEP- “13 4 01:13: 
v04 = SCSSALL_DGREC, ALLOCATE BUFFERS FOR RE 5° -SEP-19 t 80: 716: ‘3 LORIVER. SREIPASCSCTL. MAR; 1 (29) 
4AC 1733 -SBTTL = SCSSALL_DGREC, ALLOCATE BUFFERS FOR RECEIVING 
4AC 1734 -SBTTL = PLICATION DAT 
4AC 1735 -SBTTL = SCSSALL_FRDGS, ALLOCATE ee DATAGRAMS AND 
4AC 17 § -SBTTL = PUT ON PORT QUEUE 
ZAC 1738 + 
SAC 17 § ; Tats routine allocates the number of datagrams specified in 
4AC 1740 ; : CDTSW_DGREC or RO, Linking them together as allocated. If all are allocated 
4AC 1741 : successfull then they are inserted on the port free datagram queue. 
8* 8 3 generys se. the aut vary, Sc Laeenes already are returned to pool and error 
4 ; s returned to the caller. 
4AC 1744; 
—*pl 34 3; Inputs: 
04AC 1909 3 RO # datagram buffers te allocate 
O4AC 1748 ; (SCSSALL_FRDGS ent 7 
QO4AC 1749; R3 -Addr of cor (SCSSALL_DGREC entry) 
O4AC 1750 ; R4 “Addr of P 
Q4AC 1751; 
nee 1736 ; Outputs: 
OGAC 1754 ; RO “Status: SSS$_NORMAL, SSSINSFMEM 
4AC 1755 ; R1,R2 -Destroyed 
4AC 1756 ; other registers -Preserved 
Q4AC 1757 ;- 
O4AC 1758 
—*R 173) -ENABL LSB 
—* 178) SCSSALL_FRDGS:: 
50 D5 OQ4AC 1568 TSTL RO ; Any datagrams to get? 
06 ~=«11 beak 38 BRB 5$ ; Join common code 
ar 1766 SCSSALL_DGREC: 
50 4C AS 3C 0480 1768 MOVZWL CDT$W_DGREC(R3),RO ; Get # buffers to allocate 
28 «4613 «(0484 «1769 5$: BEQL 40$ ; Branch if 0 
55 ODD 0486 1770 PUSHL R5 : Save RS 
53 DD 0488 1771 PUSHL R3 : and R3 
53 50 DO OQ4BA 1776 OVL RO,R3 3 R3 will be buffer counter 
55 D4 rf 10> CLRL : Set Link to next buffer = 0 
FB3E" 30 O4BF 1775 10S: BSBW INTSALLOC_DG : Allocate next buffer 
20 5 E9 O4C 1226 BLBC RO. 208 3 Branch if failed 
6 5 DO O04C5 177 MOVL R5,(R2) 3 Link this Gutter to last allocated 
5 5 0? 4C8 1778 MOVL R2,R5 3 Set RS to point to this buffer 
f1 5 F 4CB 1779 SOBGTR R3,10$ ; Branch if more to allocate 
53 8600 ote Ve ? OPL ® ; Retreive R3 
Ss 3 8 4D1 1782 208: MOVL R5,R2 : Get addr of next buffer 
08 13 0404 17 BEQL 308 : Branch if no more 
55 6 0 0406 1784 MOVL (R2),R5 ; Update ptr to next buffer 
FB24* 30 0409 1785 BSBW INTSINS_DFREEQ : Insert buffer on port free queue 
F3.—Oiéd1i * iy $ BRE 0$ : Branch for next buffer 
55 8ED0 8 3 30$: POPL R5 ; Restore saved register 


PUT ON PORT QUEUE 


16-SEP-1984 01:13: AX/VMS Macro v04-00 
§ ets 4 tere YORIVER. SREIPAS SCTL.MAR;1 
L,R 


50 01 Hs 4E} 1790 408: MOVZWL #SS$_NORMAL ,RO ; Set status to success 
0 ty: 44 RSB Return 

~—.6US 0 tke 1538 50$: MOVL R5,R2 3; Get addr of next buffer 

8 1 4EB 1794 BEQL NO_MSG_MEM ; Branch if no more 
55 6 8 4EA 1795 MOVL (R2),R5 3 Update ptr to next buffer 

FB10° 30 OQ4ED 1738 BSBW [gTOOEM. DS 3; Return buffer to pool 
F 11 arg 33 BRB 0$ 3; Check for more buffers 
4f2 1799 -DSABL LSB 


) 
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PASCSCTL 16-SEP-1986 01:13: AX/VMS Macro v04-00 Page 45 
yOLs000 = SCSSDEAL_ALLBUF, DEALLOCATE ALL BUFFER S-Sep-198¢ BO;1a;8¢ YORIVER.SREJPASCSCTL «MAR: 63 
ALL 8 
CTION 


— UFFERS NEEDED 


1801 -SBTTL = SCSSDEAL_ALLBUF, DEALLOCATE 
1 § -SBTTL = FOR A CONNE 
{ES 1800 :+ | 
re! ! 5; DEALL_BUF deallocates the following to nonpaged pool: 
4Fo 1 ; ; 1 SCS message buffer (Linked to CDTSL_SCSMSG) 
4F 1 8 Initial receive credit worth of message buffers 
rr! ! 8 DG receive count of datagram buffers 
4F2 1811 : It is the caller's responsibility to guarantee that all the message | 
4F2 1 \¢ ; buffers and datagram buffers claimed to be on the port free queue 
Ber i 13 3 are actually there. 
Bef } 12 : Inputs: | 
4F2 1 9 : R3 “Addr of CDT returning buffers | 
Ree ! \8 : RG “Addr of PDT 
bee : Y : Outputs: | 
04F2 1 : : RO -Destroyed | 
O4F2 1 3 other registers -Preserved 
OCS 1895 | 
ger 18 — -ENABL LSB 
Ret \3 3 SCSSDEAL_ALLBUF : : 
29 10 O4F2 1830 BSBB SCSSDEAL_SCSREC : Deallocate the SCS buffer 
04F4 18 1 3 attached to the CDT | 
16 10 O4F4 1 § BSBB SCSSDEAL_DGREC : Deallocate the dg buffers 
O4F6 18 3 attached to the port free queue 
O4F6 1834 ; BSBW = SCS$DEAL_MSGREC ; Deallocate the message buffers | 
O4F6 1835 ; 3 attached to the port free queue 
04F6 1335 3 RSB : Return 
O4F6 183 
1838 


-DSABL LSB 


© v04-00 p 6 PA! 
—* 


16-SEP-1984 01:13: AX/VMS Macr 

= SCSSDEAL_MSGREC, DEALLOCATE BUFFERS Qu ety 7 — DRIVER. SC)PASCSCTIL. MRGI vO. 
4F6 184 -SBTTL = SCSSDEAL_MSGREC, DEALLOCATE BUFFERS QUEVED TO 
4F6 184 -SBTTL = PORT FOR RECEIVING APPLICATION 
4F6 184 -SBTTL = MESSAGES 
ae RE 
4F6 1845 ; SCSSDEAL_MSGREC extracts the current recv credit worth of message buffers 
re ! 8 : from the port free queve and returns them to pool. 
cre : rt : Inputs: 
tre 1850 ; R3 “Addr of CDT returning buffers | 
rth 1851 ; RG “Addr of PDT 
4F6 1852 ; 
rth } 37 3; Outputs: 
4F6 1855 : RO -Destroyed | 
acre : 2$ 3 other registers -Preserved 
bare 1 38 ; CDTS$W_REC(R3) -0 
O4F6 1860 ° | 
4-6 1861 -ENABL LSB 
O4F6 1 8 
acre 1997 SCSSDEAL_MSGREC: 

52 DD F6 1865 PUSHL R2 : Save register | 
46 A AO O4F8 1 06 ADDW so teu Pewengs (a5) .= : Compute total credit = pending 
42 A3 nore ; 8 cODISIMXCCEG) receives given to remote | 
42 a3 3 FD 1869 10$: TSTW DTSW_REC(R3) ; Any buffers Left to deallocate? 

1 9 1870 BEQL $ : Branch if not | 

FAFB’ 30 0502 1871 BSBW JNTSMFQ2POOL ; Else remove another from port 
24 1D 636 1378 BvVS 0$ : Branch if no more -- normal ly does‘t 
38 4 nhappen except during power fail recov 

42 43 B7 0507 1874 DECW  CDTS$W_REC(R3) ; Decr count of # buffers left | 
F1 11 QS0A 1875 BRB 10$ : Deallocate again | 


G 
16- 4 13: 
= SCSSDEAL_DGBUF, DEALLOCATE BUFFERS QUE —88 LORIVER. «MAR: 1 
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SEP=1984 01: AX/VMS Macro v04-00 Page 4 
-SBTTL = SCSSDEAL_DGBUF, DEALLOCATE BUFFERS QUEUVED TO PORT | 
-SBTTL = FOR RECEIVING DATAGRAMS 


o 
SCSSDEAL_DGREC extracts the current number of datagrams contributed by 
this connection to the free queue and returns them to nonpaged pool 


Inputs: 


R3 “Addr of CDT returning datagrams 
RG “Addr of PDT 
Outputs: 
RO “Destroyed 
Other registers -Preserved 


CSSDEAL_OGREC: 


PUSHL R2 : Save register 
208: TSTW DTSW_DGREC(R3) ; Any buffers left to deallocate? 

BEQL ; Branch if not 

BSBW Aol sor aeron. ; Remove another buffer to pool 

BvS 08 ; Branch if no more-- normally doesn't 
3; happen except on power fail recovery 

DECW CDTSW_DGREC(R3) ; Decr count of # dgs contributed 
3 by this connection 

BRB 20$ ; Deallocate again 


PASC 
vo⸗ 


TL 


52 


AX/VMS Macro Vv04-00 Page (3, 


a os eb 9 aE aE 
~ SCSSDEAL_SCSREC, DEALLOCATE SCS RECEIV 5-SEP-1984 00:16: DRIVER. SREJPASCSCTL «MAR; 1 


5 dD 
2c A 0 
1 
FAD8' 30 
2c A D4 
52 a * 
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-SBTTL = SCSSDEAL_SCSREC, DEALLOCATE SCS RECEIVE BUFFER 


28 


1 SSDEAL_SCSREC deallocates to nonpaged pool the message buffer, 
any, pointed to by COTSL_SCSMSG. 


Inputs: 

: R3 “Addr of the CDT returning the buffer 
; Outputs: 

; RO “Destroyed 

; other registers -Preserved 


SCSSDEAL_SCSREC:: 


— —— —— kk —————— — — 
DWDOODOOOOOOOVOOOVOOOOVOOOOOVOOOVOOO 


MEW 9 ODNAUN EWN" OOODVNAUE 


WWIII ronononononononong 3 3 3 3 


PUSHL R2 : Save a register 

MOVL goTsL. SCSMSG(R3) ,R2 ; Get buffer address 

BEQL 0$ ; Branch if none 

BSBW INTSDEAL 3; Return to pool 

CLRL COTSL ESC SmSe(R3) 3; Show no SC 1 in COT 
308 POPL R2 ; Restore a register 

RSB 3; Return 

-DSABL LSB 


— 


TL 


PASC 
v04 


“SEP=1984 01:13 AX/VMS Macro V04-00 


L MISC ROUTINES 
j © BREAK_VC, CRASH A VIRTUAL CIRCUIT 


BREAK_VC is branched to from various SCS m e receive routines 
when an SCS control message is received which is inappropriate 

to the current COT state, has an illegal SCS message type. or performs 
unexpected action. The remote sxeten is assumed to have a broken SCS. 
The error is | ged. Routine ERRSCRASHVC is called to look the path 
block associated with the meseege and close the virtual circuit to the 
remote. The message in nang s occupying either: (1) the SCS send buffer 
in which virtual circuit failure expects to find it either in PBSL_SCSMSG 
or on the free queue, or (2) the SCS receive buffer in which case 
virtual circuit failure expects to find it on the free queue. Action 
here is to return it to the free queue regardless of whether it is the 
SCS send or receive buffer. Return is to interrupt service to dequeue 
the next response. 


PREXPEDXPXLAEARD AAA BB PEE EE EI 


OOO NA MNES ODA UNE OD NOU EW O OD NOU ES Ut" OOOn 


be reclaimed when it is time 
to delete the path block 
Return to interrupt service 


— — — — — — — — — — — — — — — —— —— —— —— — — — — — — — a —— —— —— — — 
——————————⏑—————————————————————————————»XC—— 


5 
; 
: Inputs: 
5 Re -SCS message addr 
5 R -COT addr 
; R4 -PDT addr 
: Outputs: 
5 RO- “Destroyed 
; Other registers -Perserved 
5 
: -ENABL LSB 
: $ BREAK_VC: 
51 1¢ 43 00 68 7 MOVL COTSL_PB(R3),R1 : Pick up Path Block address 
50 05 9A 05 7? MOVZBL #PAERSK_ES SCA, RO ; Log inappropriate SCS - SCA control 
FAC7* 8 5 7 BSBW ELOGSPACKE 3 message received error. 
FAC4* 5 7 BSBu ERRSCRASHVC ; Call error handler to init 
5 7 ; _close of vC 
FACI* 31 ; , BRW INTSINS_MFREEQ ; Put msg back on free queue to 
5 ? ; 
SF 198 
3 198 


-DSABL LSB 


1 1:13: cr Pa 9 
MISC ROUTINES $78 P-1984 — DRIVER. SRCIPASCSCTL.MAR;1 - By 


| 


— 


16-SEP-1 :13: AX/VMS Macro v04-00 Pa | 
= SCSSFREE_LISTEN,PUT BUSY LISTEN CDT §: Fe 19be 90 :16: +3 YORIVER. SREJPASCSCTL «MAR: 1 — (3) 
f 8 3 -SBTTL = SCSSFREE_LISTEN,PUT BUSY LISTEN CDT | 
: ! ¢ -SBTTL = BACK IN LISTEN STATE 
F 13 3 
F 1 — ——* otis! N deallocates the SCS receive buffer, if any, held 
F 19 8 : byt if specified COT, searches for the COT in the path block 
F 1989; } u. removes the CDT from the list, and sets the CDT State 
p49; te ust 
: 1336 ; Inputs: 
F : R3 “Addr of CDT 
F 4908 
: : 1338 3; Outputs: 
3 F 1998 ; RO “Destroyed 
3 F 990 ; Other registers -Preserved 
3 F 5 ; COTSW_STATE(R3) “LISTEN state 
53F 4” 
; : 3 -OSABL LSB 
; : , SCSSFREE_LISTEN:: 
51 D O53F 09 PUSHL R11 : Save caller's R1 
FFD9 0 0541 2010 BSBW SCSSDEAL Sesnet ; Deallocate SCS recv buffer, if any 
51 10 AS) «D0 «(0544 «(2011 MOVL  CDTSL_PBTR3),R1 : Get PB associdated with cof 
1 34 Al DE 348 1g MOVAL PBSL_COTLST(A1),R1 : Get addr of Ist fwd Link 
50 61 D 54C 14 10$ MOVL (R1),R0 ; Get next CDT 
oF 1 54F 15 BEQL 30$ : Branch if no more 
53 30 » 22) 1g —* RO,R3 3 dd ue are Leon ing for? 
3; Branc 
51 6C 7 D 226 18 MOVAL  CDTSL_CDTLST(RO),R1 3; Save addr of this link 
F 1 338 833 BRB 10$ : Go for another CDT 
61 6C AO 00 32 ; 1 20$: MOVL COTSL_CDTLST(RO),(R1) : Unlink this CDT from List 
56 : 30$: MOVW #CDT$C_LISTEN : Put CDT in Listen state 
56 4 COTS STATE (RS) : 
564 5 POPL ; Restore caller's R1 
28 0 § RSB ; Return 
56 8 -DSABL LSB 


P TL 16-SEP-1984 01:13: AX/VMS Macro Vv04-00 Pa 
vou-000 = RESUME _CONCALL, RESUME A CONNECTION $23 P-1 198e $031 3:33 DRIVER. SRCIJPASCSCTL.MAR; 1 — 
-SBTTL = RESUME _CONCALL, RESUME A CONNECTION 

-SBTTL = MANAGEMENT CALL 


4 i RES E_CONCALL resumes the fork process context saved in the CDT 
during a CONNECT, ACCEPT, or REJECT call. 


: Inputs: 
: RO “Completion status of connection 
3 management call 
3 R “Other status, if applicable 
3 R “Addr of sot 
3 R4 “Addr of PDT 
3 (SP) “Return to PAINIT, interrupt service 
: Outputs: 
; RO-R3,R5 “Destroyed 
: Other — -Preserved 
-ENABL LSB 


RESUME _CONCALL: 
MOVL COTSL_FRS(R3) RS Restore SYSAP R5 


ave 
Call SYSAP back 


JSB aCDTSL_FPC(R3) 
POPL RS Restore R4 
RSB Return to interrupt service 


to dequeve more responses 
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0 0 
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pbdbb ie dbdb tb db db db db db db ah dh dh db db ah dh db db db ah db db ab ab ah db db eh eb dh tl 


SSNS PAA AAA AAA AAA AAA AAA AAA AAAO 


UMVIM rn 


PARDEQD Drv & Be BS BB EE III III 
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SOoooooooooooo 


-DSABL LSB 


oe 
—WB = SCSSCHK_SEQNUM, CHECK FOR VALID "Ere e en 19be bOs1e; 
H 
E 


? Rut SCSSCHK_SEQNUM, 


AX/VMS Macro V04-00 
DRIVER. sre tip ASCSCTL.MAR;1 


<= 


«SBT 
-SBTTL = 
"sess iad — — qres ghe 
3 Goat . on connect fon ID ina speci feq SCS message oa specified 
3 Lp | are equal, then the COT is current for this message 
; aa aclaern s returned. If they are not e equal. then this CDT was 
; unilaterally closed sometime in the past and does not belong to 
; a current CDT and fail status is returned. 


sequence number fields in the 


OTe Te eee eee (eee ee eee ee eee Te eee eee 
ANNNN 
UEWnN OOO wa 
ee 
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saz = 
mmx Woo 
oz 
— 
— 
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— 
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7 
7 
7 
7 
; 7 
sf 4 ; Inputs: 
7 7 fe “Addr of Jpe e/d 
57 0 | RS cadér of COT 
3 0 § i Outputs: 
3 4 RO “Status: LBS/C for CDT OK/invalid 
57 085 Other registers -Preserved 
57 0 § - 
35 9 ENABL LSB 
57 9 § ‘ 
57 90 SCSSCHK_SEQNUM: 
57 091 
D4 «60057 444 CLRL RO 3; Assume failure 
FA B1 057 09 CMPW SCSS$L_DST coniorane? ; Compare seq # in dest conid 
1A S7A 2094 COTSL_LCONID+2(R3) 3 _and in conid in CDOT 
57C 2095 BNEQ 10$ 3; Branch if not the same (fail) 
143 8 INCL RO 3; Else set status to success 
580 2098 10S: RSB 3; Return status 
581 2099 
581 -DSABL LSB 


rics 


= SCSSCLOSE.CDT, CLEANUP CDT AND COMPLET 'SaSEPa1ob¢ DOL1E:S¢ LORIVER.eReTPAMcSCoeemar:1 aa & 
1 
L 


| 

1 § -SBTTL = SCSSCLOSE_CDT, CLEANUP CDOT AND COMPLETE 
-SBTTL © PENDING CONNX MGMT CAL | 
| 

| 


+ 


Sc eee ee DT retro ives the saved SYSAP context from the specified CDT 
for a pen CONNECT/ACCEPT/REJECT/DISCONNECT call, deallocates the 


1 at Bn queued for receive, and completes the SYSAP's pending 


eononocceec@@@e@rve vu 
mer G -4 44448 — — 


1 
1 21 
1 21 
1 1 3 
1 1 $ 
1 1 3 
1 2108 ; 
1 21 3 ca j 
1 1 : 
: ! 1 3 Inputs: 
1 2113: R “VMS status to complete pending call t 
2 1 2114; R “Aux status, 8* — [ 
581 2115 ; 83 -CDT to clean up { 
581 a : RG “Addr cf PDT { 
231 5118 ¢ output 
3; Outputs: 
; 1 119 3 
1 2120; RO-R3 “Destroyed 
: : ! 1 3 Other registers -Preserved 
381 5458 
581 124 -ENABL LSB 
581 2125 
: : : $ SCSSCLOSE_CDT:: 
7E 54 7D 0581 128 novo R4,-(SP) 3 Save R4, RS 
55 68 AS DO 0584 2129 MCVL  CDTSL_FRS(R3).R5 : Get SYSAP context, R5 
64 A D +4 130 PUSHL CDT$L_FPC(R3) : and PC 
7E 50 D 05 131 mova RO,-(SP) 3; Save status 
FF61 30 OS8E 21 § BSBW SCS$DEAL_ALLBUF 3 Deallocate receive buffers 
00000000 ' GF 16 591 1 JSB G*SCSSDEALL_CDT 3; _and COT 
50 «BE 7D 0597 2134 MOVQ (SP)+,R0 3 — — 
1 oe rh 135 JSB a(SP)+ : Call SYSAP'o. > addr 
54 7D A 21 $ mova (SP)+,R4 3; Restore R4, 
05 OS9F 21 RSB 3; Return 
540 21 3 
0540 21 -DSABL LSB 
| 


cl 
cl 
Cl 
cl 
Cl 
cl 
Cl 
Cl 
cl 
cl 
cl 
cl 
Cl 
cl 
Cl 
Cl 


16-SEP-1984 01:13: AX/VMS Macro v04-00 Pa 4 | 
= SCSSMAP_SCSSTS MAP SCS STATUS TO VMS $ ⁊ — er ees YORIVER.SREIPASCSCTLMAR:1 (35) 


-SBTTL = SCSSMAP_SCSSTS MAP SCS STATUS TO VMS STATUS 


= 


go 
: ; SCSSRAP _SCESTS gets the SCS status contained in the SCS 
3; message pointed to by R2. The corresponding VMS status is looked 
5 ye and returned in RO. (The status tables are contarned in 
; ; S_STATUS_TAB and VMS_STATUS_TAB.) If the SCS status is not 
z in Ehe translation table, it Ts returned as is. 


: Inputs: 

; R2 -SCS message address 

; Outputs: 

: RO “L.o. word: converted status 

$ or SYSAP-specific status. H.o. 
3 word = 0. 

3 Other registers -Preserved 


SCSSMAP_SCSSTS: 


#*M<R1,R ; Save registers 


NAMOOOCOCO 


NNN NAA A AAA AA AA MAMI & ⏑⏑ —⏑ ò6 ⏑⸗⸗⏑ 
NO wr 
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2———————————————— 


2—⏑—⏑⏑⏑⏑⏑⏑⏑⏑⏑⏑⏑⏑⏑⏑⏑ ⏑⏑ —1⏑ ⏑ dah ⏑ ⏑ deb dah ds 
bp dd 22222222222 
ö0000000000000 250500 0 000 


88 PUSHR 2,R3> 3 
02 A2 9 MATCHC #2,SCS$W_STATUS(R2),= 3 Look up status in 
1 #SCS_STATUS_LEN,- : SCS status List 
FAS6 CF CS_STATUS_TAB 3 
12 BNEQ 0 3 Branch if did not find it 
50 10 43 3C C MOVZWL SCS syatys — ; Get corresponding VMS status 
OE Ba POPR #*MZR1,R2,R35> ; Restore registers 
5 RSB 3; Return 
+3 20$: POPR #*M<R1,R2,R3> 3; Restore registers 
50 O2A C MOVZWL SCS$W_STATUS(R2) .RO : Return original status 
05 : RSB 3; Return 
A -DSABL LSB 


| 


8 6 | 
PASCSCTL 1 ~$EP-1984 01:13:38 YAX/ VMS Macro V04-00 Page 55 
v04 = SCSSMAP_VMSSTS, MAP VMS STATUS TO SCS 5=SEP-1984 00:16:53 (CDRIVER.SRCJPASCSCTL.MAR;1 (40) | 


38h ] i -SBTTL = SCSSMAP_VMSSTS, MAP VMS STATUS TO SCS HT 
BA 2183 ;+ SCi 
SBA 2184 ; SCSSMAP ress converts a VMS status code to the Corresponding scs SCs 

BA 2185 ; code. If the VMS code is not in the conversion table, then the VMS sci 

an ! g: ; code is foherned unchanged. 33 

ak GIBB | trou i 

* 19 ; RO “VMS code (l.o. 16 bits only) sci 

— $186 | owners i 

SBA 2194 : RO “SCS code, if conversion is successful, Sc! 

OSBA 2195 : otherwise, VMS code Scs 

5BA 136 3 Other registers -Preserved Scs 

A i 

SBA 199 .ENABL LSB | sci 

3BA 01 SCSSMAP_VMSSTS:: sci 

OF 6B O5BA 8 PUSHR gs R1,R2,R3> ; Save caller's registers SCS 

12 GE 02 39 38 04 MATCHC vas. (37) ARCS STATUS_LEN,- ; Look up RO status in table sci 
09 12 O3¢3 06 BNEQ : Branch if didn't find it SC! 

50 EC AS 3C Bat 07 MOVZWL 5. STATVS. IEN-2z G3), RO’ ;Get corresponding + SCS code Sci 
8E D5 O5C9 08 TSTL (SP) :' Discard caller's SCs 

OE BA O5CB 09 POPR — R2, R3 ; Restore other — SCs 
ee : i 

OF BA OSCE 3 208: POPR #*M<RO,R1,R2,R3> : Restore all caller's registers Sc! 

05 3208 + RSB ; Return 36; 

0501 2215 .DSABL LSB sci 

SCS 


| 


C 6 | 


PASCSCTL 16-SEP-1984 01:13: AX/VMS Macro V04-00 Page 56 
v04 ERROR HANDLING ROUTINES — — YORIVER.SREIPASCSCTL «MAR: 1 . (41) | 
2p 17 -SBTTL ERROR wanes Ie ROUTINES 
D1 18 -SBTTL = SCSSDISC_VCFAIL, PROCESS DISCONNECT CALL 
2p! 1 -SBTTL = FOR CDT ON FAILING PB 
Hy ? + 
2p! § : SCS$SDISC_VCFAIL is called by FPCSDCONNECT when the SYSAP issues a | 
D1 ; DISCONNECT for a connection associated with a path block that has | 
501 4 ; a virtual circuit failure in pro ress. The CDT is placed in a 
5D1 5 ; virtual circuit fail state. If this is the last CDT on the path 
501 § ; block to be DISCONNECTed, then a marker message is sent to the | 
501 3 port. pece let of the error response for the marker (handled in 
501 3 3; SCSSCACHECLR) tells us that the port ee is completely purged 
201 6 3; of all command queue entries for this virtual circuit. | 
49) 1 : Inputs: | 
3p § ; IPL “Fork IPL | 
501 5: R1 -Addr of PB 
5D1 $ ; 83 “Addr of CDT being DISCONNECTed 
itd 33 3 R4 “Addr of PDT 
0501 2239 : CDTSW_STATE(R3) “Any except CLOSED | 
9901 41 : (SP) “Addr of return to SYSAP | 
820! “§ : Outputs: 
0501 2245 : RO-R2 -Destroyed 
0501 46 ; Other registers -Preserved 
geet 3247 i | 
B20! $3 -ENABL LSB 
620) 2) SCSSDISC_VCFAIL:: | 
05D1 3 SDISPATCH J : dispathe on CDT state: 
9901 34 COTSW_STATE (RS) ,~ ; 
0501 2256 <CDTSC_CON_REC, 20$>.- : Connect received on LISTEN, | 
05D1 57 <CDTSC_REJ SENT.20$>.- : Connect received on LISTEN, | 
0501 2258 <CDTSC“VC_FAIL, 30$>,- ; DISCONNECT already isssued, 
B20! 3 > ; ALL other states: 
oc 80 bp 61 MOV #CDT$C_VC pall - 3; Set state to VC failure 
28 A3 HH: 8 CDT$W_STATE(RSS : 
OOF4 30 OE 64 108: BSBW CHK_NO_CDTS : Send cache clear if all | 
5E 65 : CDTs have been disconnected 
68 AS 55 00 O5E5 06 MOVL R5,CDTSL_FRS(R3) 3; Suspend this DISCONNECT 
64 A3 8EDO 5E9 226 POPL COT$L_FPC(R3) > until cache is clear | 
0 ZED 8 RSB 3; Return to caller's caller 
FF4E 30 ef 3 20$: BSBW SCSSFREE_LISTEN ; Put CDT back in LISTEN state 
WW 4 BRB 10$ ; Join common check for no CDT's 
50 O01 3C af 38 30$: MOVZWL #SS$_NORMAL ,RO ; Return success to SYSAP 


D 6 
= FOR CDT ON FAILING PB "Er$ee=18he Borlesss YOMIVER.cacapascecey mar:1 P29 (21) 


05 Ost ? He RSB 
F 75 
F 76 -DSABL LSB 


16-SEP-1984 01:13: AX/VMS Macro v04-00 
= SCS$VC_CLOSED, HANDLE vC CLOSED ON eet 7 Boi a:8 LORIVER. SREIP JPASCSCTL.MAR;1 


AAAI 


-SBTTL = SCSSVC_CLOSED, HANDLE VC CLOSED ON 
-SBTTL = SPECIFIED PATH BLOCK 


; SCSSVC_ LOSE checks if a ve failure is yeaa underway. This could 
happen if a REQID immediately followed by . TT MSG both discover 

that there is no path to the target. The R ago de sg ve 

closure by sending a SETCKT closed command te The perk The 

SNDMSG then tries to do a cache clear while the SETCKT still 

in progress. The SETCKT. and the cache clear need to use 

same packet. Further, if this routine were called twice ny this 
situation, then sysap's * d be notified twice. Therefore, if 

avec failure is underway, hg os return, letting the first vc 

circuit take care of all the ookkeeping. 


SCSSVCCLOSED checks if there oare 4— CDT's Linked on the PB. 
If not, it calls CNFSREMOVE_PB to clean up the configuration. 
If so, it calis SCSSNOTIFY_SYSAP to notify all SYSAPs involved. 


hype der CLSD is a peperete. entry to this routine which bypecsrs 

a e check Tf a ve failure is in progress. SCSSSETCKT_CLSD is called 

oy PAINTR upon receipt of a SETCKT closed response. A ve failure should 
always be marked in progress in this case. 


Inputs: 
IPL “Fork IPL 
ud -Addr of fort res PB, 0 i 
ot a sLSb th 4 mitt always be 
4 “Addr of RSP 
R “Failure reason (VMS status code) 
-PDT addr 
vC state “Closed by port 
Outputs: 
RO,R1,R3 “Destroyed 
Other “registers “Preserved; in pers iculer. the . /dg 
pointed to is not disposed of. That is 
the caller's responsibility. 
-ENABL LSB 


SCSSVCCLOSED:: 


PO ODNAUN EWN 9 ODNOAOUE WN OOONAUS WN 


WAND ONE 


WAN AATRIMIRIMINININININ 2 2 2 = BOOOODOOOOO 


OOOO R RN NN NN NAH 


; Check PB addr 6 * port 


gt 3 
BEQL CONF IG_ERR 3; There is none, nop oe 
CMPW PBSW_STATE(R1),- : Is a ve failure a ready. in 
#PBSC_VC_FAIL 3 _progress? 
BEQL ; Branch if so. 
SCSSSETCKT_CLSD:: 


AX/VMS Macro V04- Page 59 


16-SEP-1984 01:13: 
- SPECIFIED PATH BLOCK —— — YORIVER. SRCIPASCSCTL «MAR; 1 (42) | 
2 43 6 PUSHL R2 3: Save getter s register | 
8 . o 6 VW #PBSC_VC part - ; Set VC failure in progess 
12 Al PBSW_STATE(R1S ; 
Al 0D TSTL PBSL_CDTLST(R1) 3 Any COT's * this PB? 
9 1 6 BNEQ 208 ; Branch if s 
53 1 6 MOVL R1,R3 ; Transfer PB. address 
FOEA® 6 BSBW GNESREMOVE PB ; Else remove PB/SB | 
E 1 BRB 08 3; Return 
50 46A1 3C 208 MOVZWL PBSW_VCFAIL_RSN(R1),RO Get possible remote host shutdown 


o 


reason for vc failure 


BNEQ ges Branch if there is a reason saved 
R3,R0 


, 
1 
is 
1 
1 
if 
eit MOVL Else just copy the status handed 
6 : as input to this routine 
ss wh Ff 621 25$: MOVL R1,R3 : Transfer path block 
33 1 624 BSBB SCSSNOTIFY_SYSAP ; Handle all CDT's in List 
8ED ? $ 30$: POPL = R2 ; Restore caller's register 
05 be 9 40$: RSB ; Return to caller to drain 
* response 
A CONF 1G_ERR: | 
06 A SDEBUGCHECK sZeansy DEB CNFER Optional ly bugcheck on this error 
50 8006 off. 32 63D CVT ES_NOPB ! *%8006>, Log failure to find PB for 
pote BSB" ELOGSPACRET” iven message while clesing 
pete C error (crashes port). 


F9B8° 31 BRW ERRSCRASH_PORT 3 Init port crash 


-DSABL LSB 


DDRAEXR_DPD AAAs Be BB BE PAI 


MEW 9 o OONAUE Oo 


oo 
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PASC 1 P=1984 AX/VMS Macr Bee -00 

vo⸗ = SCSSNOTIFY_SYSAP, SEARCH CDT LIST AND $23 “SEP=1 1984 80:18 38 DRIVER. SRCJ PASCS CTL.MAR;1 
-SBTTL = SCSSNOTIFY_SYSAP, eee COT LIST AND 
-SBTTL = DLE CDT’S IN 
-SBTTL = VARIOUS. STA TES 


NOTIFY_SYSAP i fea vith by — Ose0 ond oye ig! RECOV to search the 
CDT LiSt associated : th a path block and nos! fy fee 7 SYSAP appropriately 
depending upon the CDT state. It scans the C st for that path. For 
each open CDT found gh. SYSAP's error 8 4 —A to notify the 
SYSAP of the virtual circuit failure. YSAP may, in the course 

of reclaiming threads (CORP’s) in progress, cause = —* Ln be 

sent to the port. This happens with a sppecent success, 

SEND_MSG_BUF’s do not yield errors. T p may issue » OISCONNECT 

as part of its error routine, or may Sete the DISCONNECT mill later. 


When all SYSAP’s owning open CDT’s have had their error entries called, 
then SCSSVCCLOSED calls C F SREMOVE PB to claen up the configuration 
database if there were no CDT's on this path block. 


CDT’s in non-open states are handled in various ways: 


WR SO OONOAOUES WN O OONOULS Ut" OOOn 


; State Action 
; CLOSED Nonfatal bugcheck since a closed CDT 
; should never be Linked to a PB. 
: CON_ACK Terminate the connect call with 
3 VCBROKEN status 
38 ; DISC_ACK Terminate disconnect with success status 
4 ; CON_REC Call the SYSAP’s error routine. 
400 ; DISC_REC Ignore this CDT since the SYSAP will 
tt ; eventually DISCONNECT anyway. 
rt § ; CON_SENT — connect call with VCBROKEN 
: status 
405 ; 
£88 3 DISC_SENT Terminate disconnect with success status 
408 : REJ_SENT Terminate reject with success status and 
rt 3 return CDT to Listening state. 
ait ; ACCP_SENT Terminate accept call with VCBROKEN status 
a1 ; LISTEN Nonfatal bugcheck since a Listen CDT 
413 3 should never be Linked to the PB 
416 : DISC_MTCH Terminate disconnect with success status 
3 : Inputs: 
420 : RQ ~Aux status to pass to SYSAP 
421 ; R -PB addr 
° ; : -PDT addr 


ry 


5 

1 0 

so Hse § 
ae 

53 34 A 
7A 

6C AS 

50 «C8 AS 
53 6c6 AO 
8 

50 60( A 
F4 

6C AO 6E 
50 2100 8F 
fs 


VARIOUS STATES 


i bb Ab-Ab Abd ddd Ab Ab Ab Ab AD Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab A) Ab le 
SOOO OMMMMMMMMmMmMmmMmMmmMmMmmMm® OOD ovwrvc } 


8322 
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= 
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16-SEP-1984 01:13: AX/VM cro v04-00 Page 
Breer eee Blass PAXIVES Bacto e 
: Outputs: 
: RO-R3 -Destroyed 
; Other registers -Preserved 
-ENABL LSB 
SCSSNOTIFY_SYSAP:: 
PUSHL R5 : Save caller's a 
my RO,R1 3; Transfer aux sta 
MOVZWL #S$$_VCBROKEN,RO : Set status to paper’ to SYSAP 
MOVL R3,R ; Save PB addr 
MOVL PBSL_CDTLST(R3),R3 + Get Ist CDT 
BEQL 30$ ; Branch if none 
NEXT_CDT: 
PUSHL CDTSL_CDTLST(R3) 3; Save addr of next CDT in case 
3; this one is delete 
SDISPATCH 3; Dispatch on CDT state 
corey. STATE(R3), - é 
<CDT$C_OPEN CALL_ERRADDR>,- 
<COTSC"CON_ACK, CONNECT ABO>,- ; 
<CDTS$C_ 1SC_ACK,DCONNECT_OK>,= : 
<CDTSC_CON REC, CALL_ERRADDR>,=- ; 
<COT$C“DISC_REC, IGNORE CDT>,- 
<CDTS$C_CON SENT, CONNECT _ABO>, : 
<COT$C“DISC_ SENT ,DCONNECT OK>,- ; 
<COTSC"REJ SENT, REJECT OKS,- 
<COTSC"ACCP_SENT, CONNECT ABO>,- : 3 
<CDTSC_DISC_MTCH DCONNECT_OK>,- : 
<COTSC_VC_FRIL, {GNORE_CDT>,-  ; 
BUGCHECK CIPORT,NONFATAL ; Illegal CDT state 
MOVAL PBSL_CDTLST-CDTSL_ CDTLST(RS), RO 


FIND_PRV_CDT: 


CMPL CDOTSL_CDTLST(RO), 
BEQL UNLNK_CD 

MOVL CDOTSL-CDTLST(RO), 
BRB FIND_PRV_CDT 

UNLNK_CDT: 

MOVL (SP) ,COTSL_CDTLS 
MOVZWL #SS$ 5 oat a RO 
BRB GET_REXT_C 


: If nonfatal bugcheck, get PB 
: CDT Listhead addr - CDTSL_CDTLST 


RS : Got prey ious Link? 
3; Branch s 
RO : Else nget next CDT 
3: Go check it 
T(RO) Remove this CDT from List and 


take no further action on it 
Retreive status 
Go for next CDOT 


fy 


6 
—B = VARIOUS STATES "orSeen 188s Boilecss FORIveR.caeapascscoe man:1 29° (88), 


244 rt 1 CALL_ERRADOR: : Notify SYSAP via error routine: 
3 4 698 24 : PUSHR #*M<RO,R1,R4,R5> : Save fogigtere we need 
0c 59D 24684 JSB QCDTSL ERRADDR (RS) t Call SYSAP error routine 
9 BA 485 POPR #*M<RO,R1,R4,RS> ; Restore registers 
€ 11 06a 4 § BRB GET_NEXT_CDT : Join common code 
BAG 24 3 CONNECT_ABO: : Terminate pending connect/accept 
f r . ; with error status 
7E 50 7D 4 re mova * (SP) ; Save status values 
it in 6 3 BRB 10$ : Join common code 
9 2696 REJECT_OK: 3; Terminate pending connection t 
BAD 198 ¥ ; call with suseole status, retura 
bA9 262 ; CDT to Listening state. 
43 0 7D O6A9 249 va 0 ) 3 Save RO, R 
5 1 3C O6AC 249 MOVZ2WL #S5$_NORMAL,RO : Set RO to success status 
88 BAF 26 PUSHR #*M<R2 RS ni, R5> : Save remaining registers 
55 68 A p 6B1 3 0 MOVL  CDT$L_FR5(R35,R5 : Get sysap's R 
64 6 5 1 JSB acOTSL_FPC(R j 3; Resume sysap after its reject call 
6BB 25 § POPR #*M<R2,R3,R4,R5> 3; Restore registers 
FE 0 068A 25 BSBW SCSSFREE_LISTEN : Put CDT back in Listening state 
11 SBD 2504 BRB 08 3; Join common cleanup for next sysap 
4 : 5 3; to notify 
F 25 $ DCONNECT_OK: 3; Terminate pending connection mgmt 
: 2 ; 3; call with success status: 
43 50 7D F 219 mova RO,-(SP) 3; Save standard status values 
50 01 3° t 1 MOVZWL #SS$_NORMAL,RO : Set status to success 
FEBS 0 — 21§ 10$: BSBW SCSSCLOSE_CDT ; Complete pending disconnect call 
i: ae. C 514 20$: MOVL R5,R1 ; Retreive PB addr 
oc (1 CB 2515 BSBB CHK_NO_CDTS ; Check CDTs disconnected now 
CD 218 ; _and send cache clear if all disconnected | 
50 8E 7D — 3} mova (SP)+,RO 3; Restore standard status values 
D 218 IGNORE COT: 
4 : » GET_NERT_CDT: 
53 nat $ D ; ; POPL R3 3; Retreive addr of next CDT 
8 61 4 ? BNEQ NEXT_CDT ; Else go process 
55 8e00 D : 5 30$: POPL R5 3; Restore caller's R5 
0 3 — RSB 3; Return 
09 528 -DSABL LSB 


50 «(C8 Al 
50 6C A 
07 

28 AO 

oc 

F4 


00 
03 0110 J 
F90D° 


NNN NENA AA AAA AAA MAMI PEP LLL EE 


SORTS —— 


à⏑ 


are Leeeg out dur 
remain whic 


able to process commands. | 


port's caches. 


If the p0 
lear will not be processed. 


still connections 
NOT 


nt 


configuration. 
—22 port. 
Inputs: 


R1 
R4 


Outputs: 


RO-R2 
Other registers 


This routine is cay eee 


s already cleared ge By some buffers 
° 3 

IFY_SYSAP or DISCONNECT will complete cleanup. 

connections are gone on this 

commands or responses again and remove the path block from the 
When there are no more path blocks 

(virtual circuits) associated with this port 
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- CHK_NO_CDTS, IF ALL COTS ON PB DISCONN oe tt} — YORIVER. SREIPASCSCTL «MAR: 1 ad (44) 
-SBTTL = CHK_NO_CDTS, If ALL CDOTS ON PB DISCONNECTED, 
-SBTTL = SEND CACHE CLEAR MSG 


SSNOTIFY_SYSAP as partially open CDTs 
ailure. It chess whether 

h have not been DISCONNECTed. so, CH 

If all have been disconnecte 


any CDTs 
K_NO_CDTS returns. 


q. then check f the port i§ alive and 
th s ali 


e port ve, then queve a cache 


clear message to it -- when the cache clear message has made it 
through the port, then we know we have retreive everything from the 


rt is dead (it was orgerer or power failed), then a cache 


n this case process as if the cache 
this way.) If there are 

future loops through 

If all the 


» then clear port queues of any 


return since 


then attempt a reinit 


The port reinit may not be possible at this time due 
° Pr power loss and no restoration -- in this case, the reinit 
will happen on power up interrupt from the port. 


“Addr of PB 
“Addr of PDT 


-Destroyed 
-Preserved 


Get addr of CDT List - offset 
COTSL_CDTLST 


Get next CDT 
Branch if non 


2 

Is CDOT state other than 
VC fail? 

Branch if not 

Else return without doing anything 
since not all CDTs disconnected yet 


Sete Ge Ge Ge Ge te 


; Is port processing commands or 
crashed? Branch if crashed. 


-ENABL LSB 
CHK_NO_CDTS: 
MOVAL PBSL_CDTLST-CDTSL_CDTLST(R1) RO 
10S: mOVL DISL_CDTLST(RO) RO 
CMPW «=: CDT $W_STATE(RO),- 
#COTSC_VC_FAIL 
BEQL =-10$ 
RSB 
20$: BBS #PDTSV_PWF_CLNUP,- ; 
PDT$w_CPORT STS(R4), 308 : 
BRw INTSCCRCACHE 


3; Else call PPD Layer to clear out caches 


K 6 
VOsO00" = SEND CACHE CLEAR MSG "97$FE=13 


F 
f 
f 
f 
FA 
. FC 
53 8E FF 
F SFB" : 
0112 C4 
F8F2° 7? 
70E 
PRE 
53 sep ? 
0 71 
71 
71 


ee 


ve 
i FL COTLST CRT) 


R 
BSBW ERRSCLEANUP_PKT 


POPL R3 

BSBW CNFSREMOVE PB 
bare PDTSW_PBCOONT (R4) 
BSBw ERRSINIPORT 

POPL R3 

RSB 


-DSABL LSB 


Be 80:16:38 EORIVER. SRESPASCSCIL MAR: 1 


Bete Ge Se Ge Ge Se Ge Se Se Sete 


feve caller's R3 
Any F — 7 left on this PB? 
ranch so 
Save Pa’ 42 
C o- * 8 one more time 
u 
Get PB oer. in right register 
Remove path block from atabase 
Any PB's 12 this port left? 
Branch if s 
Else go call reinit of port if 
port has power now 


Restore caller's R3 
Return 
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= SCSSCACHECLR, 


71 
? 
? 
? 
7? 
? 
? 
7? 
7 
? 
7? 
7? 
? 
7? 
? 
7? 
? 
? 
7? 
7 
7 
? 
7? 
? 
7 
7? 
7 
7? 
7? 
7? 
7? 
7? 
7 
? 
7? 
7 
? 
7? 
7 
7? 
7? 
7? 
7? 
7? 
7? 
7? 
7? 
7? 
7 
7? 
7? 
7 


51 5 
03 1 
FFI11 =—3 
1 oD 
53 1 00 
34 AS rf 
Oe 1 
6C A3 D 
50 9 3 
FES4 
53 200 
a 
53 BED0 
f808 31 


Other registers 


SCSSCACHECLR:: 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 
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aaa ny yy SSS SS SS SOP AEP OOOO ECOL OL LS pitts 


PUPP EEE EEE 
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BWCOCOCOMODOUINVINMIOS BNL LSIMDOOOAS & 


WWWNIAN AAAI AAAI WII IPO NON 


L 


* SCSSCACHECLR, 


“Fork IPL 
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PROCESS REC'D MARKER MSG THAT 
SAYS THE PORT CACHE IS CLEAR 
OF TRAFFIC ON SPECIFIED VC 


* 
SCSSCACHECLR is called by PAINTR upon completion of any cache clearing 
operations that were begun by CHK_NO_CDTS above. 


-Addr of PB 
“Addr of PDT 


LSB 


R1 

10$ 

CONF I1G_ERR 

R1 

R1,R3 
PBSL_CDTLST(R3) .R3 
50$ 


CDT$L_CDTLST(R3) 
#SS$_RORMAL,R 
SCSSCLOSE_COT 


208 


R3 
CNFSREMOVE _PB 
LSB 


“Destroyed 
-Preserved 


Check PB assoc with remote 
port in CACHECLR msg 

Branch if lookup successful 

Else, config database is 
inconsistent 


Save PB addr 
Retreive PB addr 
Get addr of Ist CDT 
Branch if none 


Save addr of next CDT 

Return success to suspended 
SYSAP and delete CDT 

Get next CDT addr 

Branch if got one 


Retreive the PB addr 
Deallocate PB/SB and return 


P 
8 
$ 
$ 
$ 
$ 
A 
C | 
C 
C 
) 
Dd 
) 
Dd 
) 
— 
D 
D 
) 
D 
D 
D 
0 
D 
D 
D 
D 
D 
E 
E 
F 
F 
I 
I 
1 
I 
a 
al 
P 
P 
p 
p 
P 
P 
P 
P 
P 
P 
P 
Pp 
P 
P 
P 
P 
P 
P 
P 
P 
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PASCSETL Bree e-138e 00:18:58 EORIVER.sReoPascecre.mars1 “22° (8) s 
Symbol table " , | — 
MMON_CONNECT | 
sescunstt ° 53 EOMMONC RSP 8 1 | a 
ACCP AB FBR 0} COMMON-RSPZ 400 | 4 
phe fel BeAse oR Ot CONNECT ABO A 1 | P 
SRERE OF SF R 1 CONNECT “FAIL 00017 , | 5 
SATA — LO SPACRET geeeeeee x 1 U 
COTSB_RSTATION : Boe SsucrHeck teeeeeee X01 U 
CDTSC_ACCP_PEND “4 ERRSBUGCHECK aeeneeee = § X 1 U 
COTSC_ACCP-SENT = A RRSQUGCHECKNE | eterense XI U 
CDTSC_C * = , : —BI eeeeeree x 1 U 
eo TEE EON . ERRSCRASH PORT eeenesee =X Ot y 
CDTSC~CON-REC 8obd ERRSDEBUGCHECK eeeeeere X01 U 
COTSC-CON SENT 2 f pensvcouelt teeneeee X01 U 
CDTSC-CR_PEND = 90000 See en teeneeee X01 U 
Spree =pist Ace = 90000008 ERRSV-DEB-NOPB eeesenee =X Ot Y 
COT se -DISE_ACE . 0000006 FATAL-CR_ERR OQOOOO0AC R 01 U 
EDISC~b1SC-PEND = 90000006 FIND PRV-CDT 9000684 R u 
CDTSC-DISC-REC 886 I eon 00000306 R 8 U 
CDTSC-D1SC-SENT = 90000005 PRT SCS_CREDIT — Oe? U 
CDOTSC“LISTEN me 44444 FPCSINITIAL teeeeees =X 01 U 
SO TST RES 2 00 0008 GET _NEXT CDT 00000600 R 01 U 
COTSC_REJ_PEND 0000008 IGNORE COT 00000600 R 01 U 
COTSC_REJ_ SENT ⸗ 000 ILLMSGTYP O00003CC R 01 U 
te = 00 INTSALLOC_DG eseesees og OF 
CDOTSL_COTL = 00 4434 INTSALLOC "MSG Reeeeene xX 01 
ities ary = 00 INTSCLRCACHE eeeeeees = OI 
CDTSL-CRWAITOFL = 00000038 INTSCLACACH coesenbe nk 
CDTSL-ERRADDR = 0000000C bbe pre oe eeeeeeee X01 
COTSL_FP s B38 808 INTSDFOSPOOL eeeeeeee =X 01 
COT$SL_LCONID = 0000 INTSINS MFREEQ RERRHERE x 01 
ihe tot = $0000000 INTSMFQ2POOL eesececs =f Ot 
COTSL-MSGINPUT = 00000000 jut sny Gero noeaeeees ar 
OTST PB = 90000010 INTSSNOMSGL — —— 
EDTSL-RCOMID = 90900014 INTSTRNRSG coos a | 
— = Rutt mayranpon See 
COTSL WAL TOFL = 90900036 NO-ASG.RER 000040 R Ot 
COTSU“BLKSTATE ° 09 ic NO=RESOURCE 863334 di | 
EDISUTRINREC = ta PAERSE-ESc LTO = 90000003 | 
rhe Rta : Anse een = A 
Lb a yt . PAERSK-ES-LST = 00000009 | 
eo Tey REASON > 4 PAERSK~ES-LST4 = 0000000¢ | 
COTSu_REC > ‘ PAERSK~ES~NOPB = 9900000 | 
COTSU_ SEND 4 02 PAERSK~ES~SCA s 0 | 
COTSU STATE iC 1 PAERSK~ET~DALT = 0000000 | 
—R 00609 R 1 PAERSK-ET-LMLT = 4 
CHK NOC eeeeeeee x ON PBSB_RSTATION 2 
id PB _msGe eeeeeeee — — — 1 PBSC VC FALL ⸗ — 
CNF SSCSMSG_REC teeeeere =X 01 PBSL-CDTLS 
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ae JOVVIESwWVGaAfVO0EeVwY ZEvVIIVOsEevw ww MaAaaa ft § § SCeeewvowwwd iti 
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POLLERDUE 
BOTCEN 


TC 
FAR 
PMC 


PwF 


4 
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PASCSCTL 
Symbol table 
PDTSL 

TSL 

TSL 

TSL 
POTSL 
PDT$V 
PDT SW 


PD 
PD 
PD 


PASCSCTL 
Symbol table 


SCSSC_STOISC 
SCSSC_STINSFCR 
TNOMAT 


S 
SCSSC_STNORMAL 
SCSS$C"STNOR 


V2222 


-DISCONNECT 
~INSFMEM 
=NOL ISTENER 
-NORMAL 
STREJECT 
$ REMRSRC 


oOooNnN # CGOOOOCOOCS * OOOCOCO 


SOoOoN"™ # CQOOCOCOSOSCS * OOOCSOO 
ooo" # SOOOCOCOSCOS * OOOOooO 


nnnnnn “on 
OOOOoOoOoOOoooo TNO "OS 


Ses 
ooo 
oo 


00000288 


SoOootOo "NS 


ODMH OS MO MMNO 
tye babs | —9OuUIo ONO NTN» 
0D LOST NONPWNM ONMNLOOONS 


SOooooooo 
OOoOoooooo 
DTD DBDBDBWWWDADwAAzDzAD 


WDOOCOVMVIEL &O 
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COoooooco°o°oo 
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UNLNK COT 
UPDATE SEND 


v 
VMS_STATUS_ TAB 
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Vv 
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ae 


PASCSCTL 


Psect synopsis T Pa] =138¢ gale +38 AX/VMS Macro V04-00 


984 DRIVER.SRCJ PASCSCTL. MAR; 1 


bpeanseceneonscnanaa= $ 


! ;_Psect synopsis ! 


ona aaveaseneetd 


PSECT name Allocation PSECT No. Attributes 


The working set Limit was 2100 pages. 

96016 bytes (188 pages) of virtual memory were used to buffer the intermediate cod 

There were 60 pages of symbol table space allocated to hold 1042 non-local and 92 local symbols. 
657 source Lines were read in Pass 1, 2 object records in Pass 2. 

pages of virtual memory were used to define 31 macros. 


pboaaseeam mem mame oe momo + 


g ; Macro library statistics : 


Macro Library name Macros defined 


=B35Se0uase: ESYS 0844 9042°M [8,m8; 1 


MLB; 
255$0U. SYSLIBJSTARLET. MLB; 2 
TOTAs (all libraries) 2 


1238 GETS were required to define 22 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:PASCSCTL/OBJ=OBJ$:PASCSCTL MSRC$:PASCSCTL/UPDATE=(ENHS$:PASCSCTL) +EXECML$/L1B8+LIB$:PALIB.MLB/LIB 


, ans . 90000000 3 9 . O39 NOPIC USR CON ABS - LCL NOSHR NOEXE NORD wont NOVEC BYTE 
$$$115_DRIVER 00007 : Tes 1¢( 1.) NOPIC USR CON REL LCL NOSHR EXE RD T NOVEC LONG 
SABSS 0000360 4.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD URT NOVEC BYTE 
— — a ee arene noran esa neaea noes 
! Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 60:00:00 -08 00:00:00.89 
goanens processing 110 00:00:00.51 00:00:04.35 
414 oes SPURTE —3835 
table sort 9 80 00:06. 4 00:00:05.66 
39 00:00:04.04 00:00:12.95 
Syabot table output 1 00:00:00.16 —83883 
Psect synopsis output 0 00:00:00.02 00:00:00.02 
Cross-reference output B29 299-08 00:00:00.00 
Assembler run totals 954 00:00:17.68 00:01:06.88 
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